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Abstract 

The  purpose  of  this  study  was  to  apply  principles  nf 
database  management  to  the  Air  Force  Report  ot  Discrepancy 
(ROD)  Program.  The  overall  goal  was  to  reduce  the  number  oi 
manhours  required  to  manage  tie  program  and  to  improve  the 
reliability  of  inf  or mat  ion.  In  conducting  this  study,  the 
researcher  asked  and  answered  four  research  questions.  Each 
question  constituted  one  of  four  steps  in  the  development  of 
this  study.  The  lour  steps  were  to  (1)  evaluate  the  current 
system,  (2)  identify  aspects  of  the  current  system  that,  could 
be  improved  through  automation,  (3)  choose  a  database 
management  software  (DBMS)  package  to  automate  those  aspects 
identified  in  step  2,  and  (4)  structure  and  implement  a 
database  application. 

The  study  resulted  In  the  development  of  a  database 
application  designed  to  automate  aspects  of  the  ROD  program. 
This  program  could  have  universal  application  to  ail  Air 
Force  base  supply  organizations.  Validation  and/or 
distribution  ol  the  programs  or  findings  will  be  managed  by 
the  Logistics  Management  Center  at  Gunter  AFB,  Alabama. 
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AUTOMATING  THE  AIR  FORCE  BASE-LEVEL 


REPORT  OF  DISCREPANCY  PROGRAM: 

AN  APPLICATION  OF  DATABASE  MANAGEMENT  TECHNIQUES 

I  •  I  rrtrodur  1 1  on 

Background 

In  August  1978,  the  House  Appropriations  Committee 
charged  the  military  services  were  wasting  millions  of 
dollars  each  year  due  to  poor  supply  procedures  (Smith  and 
Saengaram,  1980:1).  The  committee  recommended  that  4155 
million  be  cut  from  the  services'  budgets.  The  Air  Force's 
share  of  the  proposed  budget  cut  was  450  million  (Smith  and 
Saengaram,  1980:1).  As  a  result  of  the  proposed  budget  cut, 
the  Air  Force  implemented  a  number  of  programs  aimed  at 
eliminating  waste  within  its  supply  system.  Following  a 
thorough  review  of  supply  procedures,  shipment 
discrepancies,  received  by  base  supply  activities  from 
various  vendors,  were  closely  scrutinized.  Although  there 
were  many  types  of  shipments  discrepancies,  only  those 
involving  shortages  were  tracked  (Smith  and  Saengaram, 
1980:2).  These  discrepancies  were  easily 
discovered/identified,  and  the  cost  could  be  easily 
calculated  (Smith  and  Saengaram,  1980:2).  Subsequently,  the 
Air  Force  expanded  the  program  to  include  discrepancies 
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which  were  more  difficult  to  account  for,  but  yet  have  an 
impact  upon  supply  operations. 

General  Issue 

The  Report  of  Discrepancy  (ROD)  Program  is  a  vital  link 
in  the  Air  Force's  effort  to  eliminate  waste  within  its 
supply  system.  The  ROD  program  provides  a  means  of 
reporting  shipment  discrepancies  to  the  responsible  activity 
and  provides  the  basis  for  corrective  action  to  prevent 
recurrences  (HQ  USA17,  ^987:  Ch  5,  51).  While  the  number  of 
shipment  discrepanc ies  has  steadily  increased,  the  manual, 
repetitive  procedures  for  managing  the  program  have  remained 
virtually  unchanged.  As  a  result,  the  current  program  may 
no  longer  be  an  effective  tool  for  managing  discrepancies. 

J  ust 1 f icat ion 

This  research  was  sponsored  by  the  Logistics  Kanageraent 
Center  located  at  Gunter  Air  Force  Base,  Alabama.  The 
automation  of  the  manual,  inefficien,  procedures  in  the  Air 
Force  Report  of  Discrepancy  (ROD)  program  is  long  overdue 
(Kendall,  1988).  In  the  past,  a  lot  of  attention  has  been 
placed  on  establishing  procedures  to  track  each  shipment 
discrepancy  reported.  However,  no  efforts  were  made  to 
review  those  procedures  to  determine  if  less  time  consuming 
and  more  efficient  means  could  be  found  to  eliminate  the 
repetitive  functions.  Most  of  the  procedures  governing  the 
ROD  program  were  established  years  ago  and  have  little,  if 


any,  computerized  support  (Kendall,  1988).  Therefore,  it 
was  reasonable  to  conclude: 

1.  The  management  of  the  ROD  program  could  be 
significantly  enhanced  through  automation. 

2.  Automation  would  result  in  manpower  savings  and 
improved  efficiency  of  assigned  personnel. 

Problem  Statement 

The  ROD  program  is  a  manual  system  requiring  a  clerk  to 
maintain  file  folders  containing  information  for  each 
shipment  discrepancy  reported.  Whenever  information  is 
required,  the  clerk  must  rummage  through  files  to  locate  a 
particular  report.  If  and  when  the  report  is  found,  pencil 
notations  must  be  made  concerning  follow-up  actions  or 
recurring  problems.  As  a  result,  the  reports  are  often 
smudged  or  Illegible.  In  addition,  trend  analysis  is  a 
manual  process,  making  the  task  of  identifying  and 
implementing  long-term  corrective  actions  more  difficult. 

Research  Objective 

The  purpose  of  this  research  was  to  apply  principles  of 
database  management  to  the  management  of  the  reports  of 
discrepancies.  The  overall  goal  was  to  reduce  the  number  oi 
manhours  required  to  manage  the  program  and  to  improve  the 
reliability  of  information.  Once  the  areas  requiring 


automation  were  Identified,  a  microcomputer  application  was 


developed  to  eliminate  the  manual,  repetitive  work.  Reasons 
for  automation  were  the  following. 

1.  Those  interviewed  believed  the  current  procedures 
were  time  consuming  and  highly  inefficient. 

2.  The  researcher  and  those  interviewed  found 
automation  to  be  a  reasonable  approach  to  improving  the 
current  system  (Bailey,  1988:5). 

3.  The  researcher  found  automation  to  be  practical  and 
well  within  time  and  resource  constraints  (Bailey,  1988:5). 

Research  Questions 

In  conducting  this  research,  four  research  questions 
were  investigated. 

1.  What  is  the  current  system? 

2.  What  aspects  of  the  current  system  can  be  improved 
through  automation? 

3.  Which  database  management  software  (DBMS)  package  is 
most  appropriate? 

4.  How  can  the  DBMS  be  structured  and  implemented? 

Scope 

For  the  purpose  of  this  study,  the  researcher  examined 
only  the  procedures  affecting  base  level  supply  operations 
within  the  Air  Force.  Implementation  of  all  application 
programs  designed  and  written  by  the  researcher  was 
accomplished  at  Vr lght-Patterson  Air  Force  Base  (WPAFB)  Base 
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Supply  activity.  The  researcher  chose  this  organization 
because  of  its  proximity  to  the  Air  Force  Institute  of 
Technology  (AFIT).  The  programs  developed  during  this 
research  could  have  universal  application  to  all  Air  Force 
base  supply  organizations.  Validation  and/or  distribution 
of  the  program  or  findings  will  be  managed  by  the  Logistics 
Management  Center  at  Gunter  AFB,  Alabama. 

Llmitat ion 

The  applications  programs  developed  during  this 
research  were  designed  for  use  on  stand-alone  personal 
computers.  Furthermore,  the  application  programs  were 
designed  to  meet  the  various  information  needs  of  several 
sections  within  the  local  supply  activity.  However,  until 
automated  interfaces  between  the  various  sections  are 
established,  a  fully  integrated  Management  Information 
System  within  the  local  supply  activity  will  not  be 
feasible . 

Assumpt ions 

The  following  assumptions  were  made  concerning  this 
research  effort. 

1.  Those  interviewed  by  the  researcher  were  knowledge¬ 
able  of  the  procedures  involved  in  managing  the  ROD  program, 
as  it  applies  to  their  work  area,  and  were  considered 
experts . 
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2.  Personnel  interviewed  could  provide  specific 
requirements  for  application  programs  to  automate  current 
manual  procedures  (Bailey,  1988:7). 

3.  Users  of  the  programs,  developed  by  the  researcher, 
would  have  access  to  an  IBM  compatible  computer  system,  and 
the  database  software  needed  to  run  the  programs  (Bailey, 
1988: 8) . 

Organization  of  Report 

This  research  report  consists  of  five  chapters. 

Chapter  I  addresses  the  research  problem,  the  research 
questions,  the  limitations  of  the  research,  and  assumptions 
made  during  this  study.  Chapter  II  provides  an  introduction 
to  databases,  DBMS  concepts,  and  the  Air  Force  Report  of 
Discrepancy  (ROD)  program.  Chapter  III  describes  the 
methodology  of  the  research.  Chapter  IV  reviews  the 
findings  of  the  research  and  provides  answers  to  the 
research  questions.  Chapter  V  provides  conclusions  and 
provides  recommendations  for  further  research.  The 
appendices  provide  information  on  the  database  files  and 
application  programs  developed  during  this  research. 

Def in i t ions 

Key  terms  used  in  this  paper  are  defined  as  follows. 

1 •  Discrepancy  Report.  "A  report  of  the  receipt  of  an 
item  which  is  deficient  in  some  aspect  and  which  is 
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officially  reported  on  a  Standard  Form  364,  Report  of 
Discrepancy  (ROD)”  (Smith  and  Saengaram,  1980:4). 

2.  Shipment  Discrepancy.  "A  requisition  which  •*  s 
received  and  is  found  to  contain  a  shortage  oi  an  overage, 
erroneous  materials,  hidden  condition  which  affects  its 
usefulness,  missing  or  incomplete  technical  data  markings, 
missing  supply  documentation,  or  a  misdirected  shipment 
which  can  reasonably  be  assumed  to  be  the  fault  of  the 
shipping  activity”  (Smith  and  Saengaram,  1980:4-5). 

3 .  Receiving  Activity.  The  activity  in  rece  ipt  of  a 
discrepant  shipment  which  subsequently  files  a  report  of 
discrepancy  with  the  shipping  activity. 

4.  Report  Qf  Discrepancy  Monitor.  The  person  who 
administers  the  ROD  program  at  the  base  level  supply 
activity. 

5.  Shipping  Activity.  The  activity  from  which  the 
discrepant  shipment  originated. 

6.  Shortage ■  "When  the  quantity  received  is  less  than 
the  quantity  ordered  or  shown  on  the  shipping  document” 

(HQ  USAF,  1986: Enel  1,  1). 

7.  Overage .  "When  the  quantity  received  is  greater 

than  that  ordered  or  shown  on  the  shipping  document”  (HQ 
USAF,  1986:  Enel  1,  1). 

8.  Information  Attributes.  Detailed  information  about 
an  entity.  For  people,  information  attributes  are  things 
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such  as  name,  rank,  office  symbol,  social  security  number, 


etc.  (Hodge  and  others,  1984:204). 

9.  Ent it y ,  A  person,  place,  or  thing  (Pratt,  1988:9). 

10.  Attribute .  "A  property  of  an  entity"  (Pratt, 

1988: 9) . 

11.  Database  Management  System  (DBMS) ■  "A  program  or 
collection  of  programs  whose  function  is  to  manage  a 
database  on  behalf  of  the  people  who  use  it”  (Pratt, 

1988: 6) . 
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Literature  Review 


I  I . 

Overview 

In  conducting  this  study,  the  researcher  encountered  a 
problem  in  locating  background  information  concerning  the 
Report  of  Discrepancy  (ROD)  program.  For  this  reason,  many 
important  aspects  of  the  program,  such  as  when  and  why  the 
program  was  instituted,  were  not  addressed.  Additionally, 
information  concerning  the  way  civilian  institutions  handle 
shipment  discrepancies  was  equally  scarce,  and,  when  found, 
the  procedures  for  reporting  the  discrepancies  were  not 
clearly  documented.  This  chapter  provides  an  introduction 
tn  databases,  database  management  concepts,  and  the  Air 
Force  Report  of  Discrepancy  (ROD)  program. 

Databases 

Entitles  are  persons,  places,  and  things.  Data  are 
simply  information  concerning  entities.  This  information  or 
data  consists  of  three  parts:  the  information  attribute  or 

context,  the  data  value,  and  the  data  attribute.  An  example 
of  this  is  as  follows: 

Data  Attribute 
10  alpha  characters 
20  alpha  characters 
20  alpha  characters 
6  numeric  characters 


I nf  ormat i on  Data 
Ent i t y  Attribute  Value 

Automobile  Color  Brown 

Make  Chevrolet 

Type  4-door  sedan 

Cost  $12,000 


Q 


Data  and  attributes  are  two  important  terms  in  database 
design.  Data  are  simply  the  information  that  goes  into  the 
database.  Attributes  are  the  types  of  data  that  make  up  the 
database.  In  a  database,  data  are  stored  in  data  files, 
which  are  structures  used  to  store  data  about  some  entity. 
According  to  Pratt,  a  data  file  is  similar  to  an  ordinary 
paper  file  kept  in  a  filing  cabinet  in  that  the  two  may 
contain  the  same  information  (Pratt,  1988:10-11).  However, 
a  database  is  much  more  than  a  file.  While  a  paper  file  may 
contain  information  about  a  particular  entity  and  that 
entity’s  attributes,  a  database  contains  information  about  a 
number  of  entities,  their  attributes,  and  any  relationships 
that  exist  with  other  entities  (Pratt,  1988:10-11). 

The  data  value  and  data  attribute  also  play  important 
roles  in  database  design  (Hodge  and  others,  1984:204).  The 
data  value  is  the  actual  values  assigned  and  entered  into 
the  database  concerning  some  entity.  The  data  attribute  is 
the  mechanical  function  of  the  database  that  addresses  how 
the  data  are  physically  stored  within  the  database.  The 
main  purpose  of  the  database  management  system  and  its 
accompanying  applications  software  is  to  combine  information 
about  the  entity,  its  data  attributes  and  values,  and  to 
provide  the  information  to  the  user  in  some  useful  format 
(Hodge  and  others,  1984:204). 
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Database  Management  Concepts 


Databases  provide  six  functions  which  allow  the  user  to 
manipulate  data  more  efficiently  and  effectively  than  ever 
before  (Bailey,  1988:21).  Functionally,  databases  (1)  allow 
efficient  entry  and  storage  of  data,  (2)  provide  error  and 
consistency  checking  functions  as  well  as  integrity 
constraints,  which  ensure  certain  conditions  are  before 
different  phases  of  processing  are  completed,  (3)  provide 
some  degree  of  protection  against  unauthorized  access  to 
data,  (4)  minimize  the  potential  impact  of  software  errors 
may  have  on  the  data,  (5)  provide  more  efficient  use  of 
internal  storage  space  by  allowing  the  data  and  the  programs 
that  manipulate  the  data  to  be  stored  separately,  and  (6) 
store  data  in  a  central  location,  which  makes  update  and 
access  by  application  programs  quicker  (Bailey,  '1988:31-22). 

To  carry  out  these  functions,  databases  perform  six 
ba»ic  tasks  which  affect  the  contents  of  the  database  and 
provides  the  user  with  the  required  information  (Bailey, 
1988:22).  "These  tasks  include  (1)  adding  data  to  the 
database,  (2)  editing  data  already  in  the  database,  (3) 
deleting  data  from  the  database,  (4)  sorting  the  data 
according  to  the  user’s  needs,  (5)  searching  for  information 
required  by  the  user,  and  (6)  printing  information  contained 
in  the  database"  (Bailey,  1988:22). 

Database  management  systems  (DBMS)  are  categorized  by 
the  approach  the  DBMS  takes  in  storing  and  manipulating 


information  about  a  variety  of  entities,  the  attributes  of 
the  entities,  and  the  relationships  between  the  entities 
(Pratt,  1988:19).  "The  vast  majority  of  DBMS’s  follow  one 
of  three  model  models:  the  relational  model,  the  network 
model,  or  the  hierarchical  model”  (Pratt,  1988:19). 

A  relational  model  database  is  a  data  model  in  which 
the  structure  appears  to  be  a  collection  of  tables.  Each 
table  consists  of  rows  (horizontal)  which  are  called  records 
and  columns  (vertical)  which  are  called  fields.  Each  record 
within  a  table  is  linked  to  the  other  records  in  that  table 
by  the  fact  they  contain  the  same  fields.  Similarly, 
records  stared  in  different  tables  are  linked.  According  to 
Pratt,  the  strengths  of  a  relational  model  systems  are 
twofold  (Pratt,  1988:29-29).  First,  they  are  simple  and 
easy  to  use.  The  user  does  not  need  a  high  level  of 
expertise  concerning  database  design  to  access  and  use 
relational  type  databases,  unlike  the  other  models.  Second, 
relational  model  systems  offer  a  higher  degree  of  data 
independence  than  the  other  models.  "Data  independence, 
which  is  the  ability  to  make  changes  in  the  database 
structure  without  having  to  make  changes  in  the  programs 
that  access  the  database,  is  one  of  the  advantages  of  all 
types  of  DBMS's"  (Pratt,  1988:28-29).  However,  relational 
models  offer  a  higher  degree  than  the  other  two  models 
(Pratt,  1988:28-29). 
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Network  model  databases  differ  significantly  from 
relational  models.  While  relational  models  appear  to  be  a 
collection  of  tables,  network  models  appear  to  be  a 
combination  of  record  types  (entities),  fields  within  the 
record  types  (attributes),  and  "explicit”  relationships 
between  the  record  types  (Pratt,  1988:29).  The  network 
model  differs  from  the  relational  model  in  that  the 
relationships  within  the  network  model  are  "explicit" 
whereas  the  relational  model’s  relationships  are  "implicit"- 
-derived  by  matching  columns  in  various  tables  (Pratt, 

1988: 29) . 

According  to  Pratt,  network  database  models  present  a 
number  of  advantages  and  disadvantages  (Pratt,  1988:32-33). 
The  main  advantage  of  the  network  model  is  its  efficiency, 
which  enables  it  to  handle  large  databases  with  large 
amounts  of  activity.  Network  models  also  provide  integrity 
constraints  that  the  other  models  lack.  The  main 
disadvantage  of  the  network  model  is  that  it  is  more 
difficult  to  use  than  the  other  models.  To  obtain 
information  from  a  network  model,  the  user  must  access 
database  files  in  the  proper  sequence.  This  requires  the 
user  to  be  familiar  with  the  underlying  database  structure 
in  order  to  obtain  the  desired  output  in  an  efficient 
manner.  Because  of  the  difficulty  in  using  network  models, 
making  changes  to  the  database  is  also  difficult.  Unlike 
relational  database  models,  which  allow  the  user  to  update 
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the  database  without  affecting  the  programs  that  access  the 
data,  network  model  require  that  all  programs  that  access 
the  database  also  be  updated  (Pratt,  1988:32-33).  This 
quality  makes  the  network  model  highly  complex— which ,  in 
turn,  makes  the  network  model  more  expensive  in  terms  of 
disk  space,  computer  time,  and  programmer  time  than  the 
other  models  (Bailey,  1988:23).  For  example,  consider  the 
diagram  in  Figure  1. 


Figure  1.  The  Network  Model  (Pratt,  1988:30) 

In  Figure  1,  the  rectangles  represent  the  record  types 
in  a  database,  and  the  arrows  represent  the  relationships 
between  the  record  types  (Pratt,  1988:30).  In  a  network 
data  model,  "the  arrow  goes  from  the  ’one'  part  of  the 
relationship,  called  the  owner,  to  the  'many'  part,  called 
the  member  (Pratt,  1988:30).  In  the  relationship  shown  by 
the  arrow  from  sales  representative  (rep)  to  customer,  sales 
rep  is  the  owner  and  customer  is  the  member.  Since  each 
sales  rep  may  have  more  than  one  customer,  but  yet  each 


14 


customer  can  have  only  one  sales  rep,  a  one-to-raany 
relationship  exists  (Pratt,  1988:30). 

A  hierarchical  model  may  be  thought  of  as  a  family  tree 
consisting  of  mothers  and  sons  (Bailey,  1988:23).  Each  son 
can  have  only  one  mother,  yet  each  mother  can  have  more  than 
one  son.  In  a  hierarchial  model,  a  "child”  record  can  be 
linked  to  only  one  "parent"  record,  but  a  "parent”  recor'd 
can  be  linked  to  many  "child"  records  (Bailey,  1988:23). 

For  example,  consider  the  diagram  shown  in  Figure  2. 


Figure  2.  Hierarchical  Data  Model 
The  hierarchical  model  possesses  the  same  advantages 
and  disadvantages  as  the  network  model  (Pratt,  1988:34'. 
Pratt  suggests  that  hierarchical  and  network  models  are 
"comparable”  with  the  only  distinction  being  that  if  the 
underlying  database  design  is  tree-like,  then  a  hierarchical 
model  would  be  required  (Pratt,  1988:34).  Bailey  has 
presented  a  different  view.  Bailey  suggests  the  major 
disadvantage  of  the  hierarchical  mode  1  is  that  while  it 
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allows  for  vertical  relationships  between  the  "parent”  and 
"child"  records,  it  does  not  allow  for  relationships  between 
the  "child"  records,  which  limits  the  hierarchical  model’s 
usefulness  (Bailey,  1988:23). 

There  are  a  number  of  differences  in  the  approaches  the 
hierarchical  and  network  data  models  use  in  storing  and 
manipulating  data.  However,  the  most  prominent  difference 
is  that  the  network  model  allows  for  "parent-child"  and 
"child-child”  relationships  while  the  hierarchical  model 
allows  only  "parent-child"  relationships.  Additionally, 
network  models  allow  a  "child"  record  to  have  more  than  one 
"parent",  unlike  the  hierarchical  model  (Bailey,  1988:23). 

As  a  result,  network  models  are  more  complex  which  make  them 
more  expensive  in  terms  of  disk  space,  computer  time,  and 
programmer  time  than  the  other  models  (Bailey,  1988:23). 

Today  with  the  aid  of  DBMS  software,  users  often  build 
databases  and  write  programs  to  perform  various  functions  on 
data.  While  building  databases  and  writing  programs  are 
time  consuming  activities  requiring  considerable  knowledge 
and  skills,  the  DBMS  software  available  today  allow 
individuals  with  little  or  no  formal  training  to  accomplish 
these  tasks  (Bailey,  1988:3).  However,  there  are  still  many 
areas  yet  to  benefit  from  application  of  DBMS  software  which 
would  eliminate  repetitive  tasks.  One  such  area  that  may 
benefit  from  application  of  database  management  techniques 
is  the  Air  Force  Report  of  Discrepancy  (ROD)  Program. 
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Purpose  of  the  ROD  progr am 

The  purpose  of  the  ROD  Program  is  to  provide  a  means  of 
reporting  shipment  discrepancies  to  the  responsible  activity 
and  to  provide  the  basis  for  corrective  action  to  prevent 
recurrences  (HQ  USAF,  1988: Ch  5,  51).  All  types  of 

discrepancies  are  reported  using  a  Standard  Form  364,  Report 
of  Discrepancy  (ROD).  According  to  Air  Force  Manual  (AFM) 
67-1,  Volume  I,  Part  One,  Chapter  5,  Section  D,  Reporting  of 
Item  and  Packaging  Discrepancies,  the  SF  Form  364  serves  the 
following  functions: 

1.  Supports  adjustments  of  property  and  financial 
inventory  accounting  records. 

2.  Provides  information  which  serves  as  a  basis  for 
claims  against  contractors,  notification  to  shippers,  and 
disposition  instructions. 

3.  Provides  visibility  of  preservation,  packing, 
marking,  and  unitized  load  discrepancies  with  required 
corrective  actions  or  recommended  improvements. 

4.  Provides  information  for  management  evaluations. 
When  used  correctly,  the  SF  Form  364  can  help  improve  supply 
operations,  and  aid  both  the  receiving  and  shipping  activity 
in  determining  probl*™  n^eas  (Smith  and  Saengaram,  1980:2). 

The  receiving  activity  files  a  Report  of  Discrepancy 
(ROD)  to  record  item  or  packaging  discrepancies  caused  by 
the  shipping  activity  (HQ  USAF,  1988: Ch  9,  343).  The  ROD 

serves  two  basic  purposes: 
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1.  The  ROD  notifies  the  responsible  shipping  activity 
that  a  discrepancy  exists,  aids  in  analyzing  and  correcting 
discrepancies,  and  helps  prevent  recurrences  (HQ  USAF, 

1988: Ch  9,  343) . 

2.  The  ROD  serves  as  a  supporting  document  for 

inventory  accounting  and  financial  adjustments.  "A  copy  of 
the  completed  report  is  used  to  support  adjustments  to  the 
reporting  and  shipping  organizations’  accountable  inventory 
and  financial  accounting  records”  (HQ  USAF,  1988: Ch  9,  343). 

Reporting;  Activity  ROD  Submission  Actions 

The  reporting  activity  has  two  basic  responsibilities 
within  the  ROD  program  (HQ  USAF,  1988: Ch  9,  343).  First,  it 
prepares  a  ROD  any  time  an  item  is  received  as  a  result  of  a 
discrepancy  attributable  to  the  shipping  activity.  The 
discrepancies  must  meet  at  least  one  of  the  conditions 
specified  in  Air  Force  Regulation  400-54,  Reporting  of  Item 
and  Packaging  Discrepancies.  Second,  the  reporting  activity 
maintains  a  suspense  file  for  each  discrepancy  awaiting  a 
reply.  Once  the  reply  is  received,  the  suspense  copy  of  the 
ROD  is  destroyed.  If  no  reply  is  received  after  45  calendar 
days,  a  follow-up  ROD  Is  forwarded  to  the  shipping  activity. 
A  second  follow-up  is  forwarded  if  no  reply  is  received 
after  45  days  from  the  initial  follow-up.  If  no  reply  is 
received  by  the  third  follow-up  and  160  days  have  passed 
since  the  initial  submission  of  the  ROD,  the  suspense  copy 
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of  the  ROD  is  forwarded  to  the  major  command  for  resolution 
(HQ  USAF,  1988: Ch  9,  343). 

Shipping  Activities  ROD  Reply  Actions 

Shipping  activities  are  required  to  reply  to  each  ROD 
submitted  by  base  supply  activities  within  45  calendar  days 
Each  ROD  not  submitted  by  the  reporting  activity  within  this 
time  limit  is  rejected  by  the  shipping  activity  (HQ  USAF, 
1988: Ch  9,  344).  Once  the  ROD  is  received,  the  shipping 

activity  completes  the  reverse  side  to  the  SF  Form  364, 
indicates  whether  a  billing  adjustment  will  be  issued,  and 
returns  the  reply--the  original  SF  Form  364  with  details  oi 
actions  taken-- to  the  reporting  activity  (HQ  USAF,  1988: Ch 
9,  344). 

Analysis  Requirements 

For  any  program  to  be  effective,  a  system  for  internal 
analysis  must  be  in  place  to  ensure  the  system  is  operating 
as  designed.  The  ROD  management  program  is  no  exception. 

AFM  67-1,  Supply  Procedures,  requires  each  activity 
establish  controls  to  ensure: 

1.  RODs  are  reported  promptly. 

2.  RODs,  received  against  the  shipping  installations, 
are  investigated  to  determine  the  cause. 

3.  Corrective  actions  are  taken  to  preclude 
recur  rence . 
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4.  Control  and  follow-up  processing  is  maintained 
until  the  discrepancy/cla ira  is  resolved. 

Additionally,  AFM  67-1  requires  each  organization 
involved  in  the  discrepancy  reporting  process  prepare 
periodic  summaries.  The  supply  squadron  uses  these 
summaries  in  analyzing  the  types  of  errors  being  made  and  to 
take  corrective  action  to  prevent  recurrences. 

Within  the  base-level  supply  activity,  the  Procedures 
and  Analysis  (PA)  Unit  is  the  focal  point  of  all  reports  of 
discrepancy  submitted.  PA  coordinates  the  actions  of  all 
supply  activities  involved  with  the  ROD  program,  ensures  the 
responsible  sections  mak_-  follow-ups  on  outstanding  RODs, 
and  distributes  replies  to  RODs  to  the  appropriate  section 
for  action.  Current  procedures  require  the  PA  Unit  to 
maintain  a  suspense  file  of  outstanding  RODs.  PA  uses  the 
suspense  file  to  perform  trend  and  problem  analysis  of  all 
RODs  submitted  by  activities  within  the  Chief  of  Supply 
complex. 

Conclusion 

The  procedures  for  managing  the  Report  of  Discrepancy 
Program  are  simple  and  straight  forth.  However,  the 
procedures  governing  the  program  require  manual  steps  that 
are  time  consuming  and  of  questionable  efficiency.  With  the 
computer  technology  available  today,  some  effort  should  be 
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made  to  automate  the  ROD  program.  Automation  of  the  program 
would  be  beneficial  to  the  Air  Force  in  two  ways. 

1.  It  would  eliminate  the  need  to  maintain  bulky,  time 
consuming  file  folders  for  each  discrepancy  report. 

2.  Automation  would  make  the  task  of  gathering 
information  for  use  in  trend  and  cause  analysis  a  lot 
easier . 

Preliminary  research  indicated  automation  of  the  ROD 
Program  would  not  require  any  substantial  outlay  of  funds  to 
purchase  new  equipment  because  most  of  the  required 
equipment — Z248  computer  systems  or  equivalent  IBM 
compatible  systems--was  already  on  hand.  This  being  the 
case,  all  that  remained  was  to  develop  a  program  to  automate 
the  manual,  repetitive  procedures  involved  in  managing  the 
ROD  program. 


21 


III.  Methodology 

Overview 

The  researcher  conducted  this  study  in  two  phases.  In 
phase  I,  the  researcher  identified  a  series  of  research 
questions.  The  aim  of  the  research  questions  was  to  gain  a 
working-knowledge  of  the  ROD  program  and  to  help  the 
researcher  gain  in-sight  into  any  potential  applications  of 
database  management  techniques.  The  second  phase  involved 
actually  designing  the  database  and  applying  database 
management  techniques  to  the  ROD  program. 

Phase  I 

In  conducting  this  study,  the  researcher  established 
the  following  research  questions.  The  methodologies  for 
each  varies  slightly  and  will  be  discussed  separately. 

1.  Vhat  is  the  current  system? 

2.  Vhat  aspects  of  the  current  system  can  be  improved 
through  automation? 

3.  Which  database  management  software  (DBMS)  package  is 
most  appropriate? 

4.  How  can  the  DBMS  be  structured  and  implemented? 

Research  Question  One.  In  addressing  this  question, 
the  researcher  performed  a  thorough  literature  review  of  the 
existing  procedures  concerning  the  ROD  program,  databases, 


and  DBMS  concepts. 


Literature  reviewed  included  Air  Force 


manuals,  inspection  reports,  staff  assistance  visit  reports, 
and  books  on  database  management.  Additionally,  interviews 
with  users  in  the  field  were  conducted  to  gain  first  hand 
knowledge  of  the  procedures  used  in  managing  the  ROD 
program. 

Research  Question  Two.  The  researcher  observed  the 
step-by-step  procedures  involved  in  managing  the  ROD  program 
and  with  the  aid  of  the  ROD  monitor  at  the  local  base  supply 
identified  aspects  of  the  program  that  required  automation. 

Research  Question  Three.  The  researcher  established  a 
set  of  criteria  to  choose  an  appropriate  software  package. 
After  applying  the  criteria,  the  researcher  chose  the 
software  package  that  best  met  the  established  criteria. 

Research  Question  Four.  The  researcher  approached  this 
question  in  two  steps.  First,  the  researcher  considered  how 
the  data  elements  contained  on  the  S'P  Form  364,  Report  of 
Discrepancy,  were  related  to  each  other,  if  at  all.  In  this 
step,  the  researcher  sought  to  establish  whether  or  not  a 
one-to-raany  relationship  or  even  a  "parent”  -  "child" 
relationship  existed.  This  determination  was  key  in 
determining  an  appropriate  database  model.  Second,  the 
researcher  determined  which  type  of  database  model  to  use  in 
building  the  database  and  proceeded  to  build  the  database. 


23 


Phase  I  I 


In  this  phase,  the  researcher  followed  a  series  of 
steps  based  on  Jones’s  five  steps  in  designing  application 
programs.  The  steps  were: 

1.  Define  the  problem 

2.  Design  the  program 

3.  Write  the  program 

A.  Verify  the  program 

5.  Document  the  program  (Jones,  1987:215). 

The  first  step  was  simply  to  define  the  problem  the 
program  was  designed  to  solve.  The  problem  could  be  as 
simple  as  the  need  to  automate  some  procedure.  In  step  2, 
the  researcher  sought  to  develop  a  series  of  small  programs 
or  modules  that  would  collectively  form  a  larger  program. 

In  step  3,  the  researcher  wrote  the  program  code  for  the 
modules.  The  researcher  verified  the  program  by  correcting 
the  program  and  by  consulting  the  users  to  ensure  the 
program  met  their  needs.  In  step  5,  the  researcher  provided 
documentation  by  placing  comments  within  the  program  code, 
which  explained  the  functions  of  each  module  and, 
occasional ly,  the  purpose  of  a  line  of  program  code. 

The  application  program  was  implemented  at  WPAFB.  The 
programs  have  been  turned  over  to  the  Air  Force  Logistics 
Management  Centex  (AFLMC)  for  further  testing  and 
distribution  throughout  the  Air  Force.  AFLMC  has  assumed 
all  responsibility  for  maintaining  the  programs. 
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IV.  Findings 


Overview 

This  study  was  accomplished  in  two  phases.  In  phase  I, 
the  researcher  established  and  answered  a  series  of  research 
questions.  The  aim  of  the  research  questions  was  to  gain 
first-hand  knowledge  of  the  ROD  program  and  in-sight  into 
any  potential  applications  of  database  management  to  the 
current  system.  The  second  phase  involved  the  design  and 
application  of  database  management  techniques  to  the  ROD 
program  in  order  to  reduce  the  number  of  manhours  required 
to  manage  the  program  and  to  improve  the  reliability  of 
information.  This  chapter  addresses  the  procedures  used  in 
conducting  both  phases  of  the  research  study. 

Phase  I 

In  conducting  this  study,  the  researcher  established 
four  research  questions.  The  specific  methodology  employed 
in  answering  each  research  question  varies  slightly,  so  each 
will  be  discussed  separately. 

Research  Question  One.  What  is  the  current  system? 

In  addressing  this  question,  the  researcher  performed  a 
«  thorough  literature  review  of  the  existing  procedures 

concerning  the  ROD  program,  databases,  and  DBMS  concepts. 
Literature  reviewed  included  Air  Force  manuals,  inspections 
reports,  staff  assistance  visit  reports,  and  books  on 
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database  management.  Additionally,  interviews  with  users  in 
the  field  were  conducted  to  gain  first  hand  knowledge  of  the 
procedures  used  in  managing  the  ROD  program.  The  findings 
from  the  literature  review  are  addressed  in  Chapter  II  of 
this  research  study. 

Research  Question  Two,  Vhat  aspects  of  the  current 
system  can  be  improved  through  automation? 

In  addressing  this  question,  the  researcher  observed 
the  step-by-step  procedures  involved  in  maintaining  the 
suspense  files  and  in  making  the  required  follow-ups. 
Specific  aspects  requiring  automation  identified  during  the 
interviews  were  as  fallows: 

1.  The  filing  system. 

2.  The  manual  steps  required  to  determine  when  follow¬ 
up  action  should  be  taken, 

3.  The  steps  to  provide  analysis  of  the  timeliness  of 
f  o 1 low-ups . 

In  addition  to  providing  information  concerning  the 
aspects  needing  automation,  those  interviewed  provided  input 
as  to  the  built-in  capabilities  the  program  should  possess. 
The  capabilities  identified  were  as  follows: 

1.  Develop  a  menu-driven  program  to  store  information 
contained  on  the  SF  Form  364  internally,  thereby  eliminating 
the  need  to  maintain  hard  copies  of  the  RODs  (Bates,  1988; 
Thompson,  1988). 
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2.  Establish  a  simple  reference  system  to  allow  easy 
update  of  existing  files,  addition  of  new  files,  and 
deletion  of  old  files  (Jackson,  1989). 

3.  Create  an  internal  system  to  access  different 
aspects  of  information  contained  in  a  ROD  file,  such  as 
national  stock  number,  date  forwarded,  or  price  (Wright, 

1989)  . 

4.  Develop  a  capability  to  print  information  directly 
onto  blank  SF  Form  364  (Jackson,  1989). 

Research  Question  Three,  Which  database  management 
software  (DBMS)  package  is  most  appropriate? 

In  a  similar  study,  Captain  Bailey  identified  several 
criteria  for  selecting  the  most  appropriate  software 
package.  Of  his  six  criteria,  the  researcher  chose  only 
three  because  they  were  most  applicable  to  this  research 
pro j  ect . 

1.  The  software  package  had  to  be  designed  for  use  on 
a  stand-alone  microcomputer.  This  was  essential  because  all 
programs  would  be  developed  using  a  microcomputer  (Ba^ey, 
1988: 47) . 

2.  The  database  management  system  (DBMS)  had  to  allow 
users  to  develop  their  own  programs.  This  capability  would 
enable  the  user  to  develop  a  system  which  was  easy  to  use 
and  tailoi — made  to  the  user's  specifications  (Bailey, 

1988 : 47 ) . 
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3.  The  DBMS  had  to  be  available  to  all  users  of  the 
ROD  program.  Ideally,  the  software  would  already  be  on  hand 
in  the  user’s  offices  or  easily  obtained  (Bailey,  1988:47). 

Of  the  many  DBMS  packages  available  on  the  market,  the 
two  most  common  to  the  Air  Force  are  dBASE  III  Plus  and 
Enable  (Kendall,  1988).  Of  these  two  packages,  dBASE  III 
Plus  has  the  strongest  support  within  the  Air  Force.  The 
Air  Force  Logistics  Management  Center  (AFLMC)--the  activity 
that  sponsored  this  research — and  the  Air  Force  Standard 
Systems  Center  routinely  use  dBASE  III  Plus  to  build  small 
stand-alone  management  information  systems.  Additionally, 
AFLMC  has  the  capability  to  compile  dBASE  III  Plus  programs 
(Kendall,  1988).  Compiling  results  in  programs  running 
faster  using  dBASE  III  Plus  and  allows  users  to  legally 
share  a  dBASE  III  Plus  application  without  purchr  ing 
additional  software  packages.  As  a  result  of  these  factors 
and  AFLMC’ s  recommendation,  the  researcher  chose  dBASE  III 
Plus  to  develop  a  microcomputer  application  to  automate  the 
program. 

Research  Question  Four.  How  can  the  DBMS  be  structured 
and  implemented? 

Structuring  the  Database.  The  first  step  in  the 
development  of  a  database  was  to  determine  the  database's 
basic  structure.  This  step  required  the  researcher  to 
determine  which  data  elements  or  attributes  should  be 
contained  in  the  database.  The  researcher  contacted 
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potential  users  of  the  program  at  the  local  base  supply- 
activity  to  determine  what  information  would  be  most  useful 
in  managing  the  ROD  program.  The  researcher  and  those 
interviewed  agreed  the  database  should,  as  a  minimum, 
contain  as  many  of  the  data  fields  contained  on  the  SF  Form 
364  as  possible  to  facilitate  a  print-out  function  (Jackson, 
Thompson,  and  Vright,  1989).  The  actual  structure  of  the 
database  is  contained  in  the  data  dictionary  located  in  the 
appendix  A. 

The  researcher  structured  the  database  to  allow  entry 
of  all  data  fields  on  the  SF  Form  364,  Report  of 
Discrepancy.  Each  SF  Form  364  has  a  distinctive  report 
number  to  which  all  the  other  data  fields  relate.  The 
researcher  established  the  report  number  as  the  primary  key, 
main  access  vehicle  to  the  individual  records,  that  would  be 
used  to  load  information  into  the  database.  The  researcher 
found  each  report  number  relates  to  a  number  of  data  fields, 
but  each  data  field  relates  to  only  one  report  number,  which 
constituted  a  one-to-many  relationship  (See  Figure  3).  Of 
the  three  database  models  discussed  In  chapter  II,  the 
researcher  chose  to  use  the  hierarchial  model  because  it 
most  closely  matched  the  relationships  of  the  data  fields 
contained  on  the  SF  Form  364.  For  example,  consider  the 
diagram  in  Figure  3.  The  report  number  (  the  "parent"), 
relates  to  many  data  fields  (the  "child"  records),  while 
each  of  the  "child"  records  related  to  only  one  "parent"  or 
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report  number.  In  the  database,  the  report  number  serves  as 
the  ’’parent”  for  the  data  fields  shown  on  the  SF  Form  364. 
For  purposes  of  illustration,  only  four  of  the  25  data 
fields  are  shown. 


Figure  3.  Database  Structure 


Phase  I  I 

During  this  phase,  the  researcher  developed  the 
computer  applications  to  automate  aspects  of  the  ROD 
program.  In  developing  the  dBASE  III  Plus  applications,  the 
researcher  followed  Jones's  five  steps  in  designing 
programs.  The  steps  were: 

1.  Define  the  problem 

2.  Design  the  program 

3.  Write  the  program 

4.  Verify  the  program 

5.  Document  the  program  (Jones,  1987:215). 

Defining  the  Problem.  In  this  step,  the  researcher 

defined  the  problem  the  program  was  designed  to  solve.  The 
researcher  viewed  the  underlying  problem  as  being  the  Report 
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of  Discrepancy  (ROD)  program’s  manual,  repetitive  procedures 
used  in  managing  the  program.  Furthermore,  the  researcher 
concluded  that  the  problem  could  be  solved  through 
automat  ion . 

Designing  the  Program.  The  best  programs  are  in  fact  a 
collection  of  smaller  programs— ca 1 led  modules — that  perform 
specific  functions  (Jones,  1987:217).  Smaller  programs 
divide  the  larger  programing  task  into  manageable  sections 
which  not  only  make  it  easier  to  organize  the  layout  of  the 
program,  but  also  make  it  easier  to  locate  errors  in  the 
program  (Jones,  1987:217).  In  designing  the  program,  the 
researcher  outlined  four  smaller  tasks  or  modules  that 
would: 

1.  Allow  new  records  to  be  added 

2.  Allow  existing  records  to  be  changed 

3.  Delete  records  when  no  longer  required 

4.  Produce  reports  when  required. 

After  outlining  the  basic  functions  of  the  DBMS,  the 
researcher  contacted  potential  users  in  the  field  to  verify 
these  modules  represented  the  basic  functions  that  are 
performed  in  the  day-to-day  management  of  the  ROD  program. 
Following  the  verification,  the  researcher  proceeded  to 
write  the  program. 

Writing  the  Program.  in  this  step,  the  researcher 
wrote  the  basic  program.  The  program  began  with  a  brlei 
introduction  to  the  program  followed  by  an  operations  menu 
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which  listed  the  functions  identified  during  the  design 
process.  The  applications  programs  developed  during  this 
study  are  contained  in  appendix  C. 

Verifying  the  Program.  During  this  step,  the 
researcher  corrected  errors  in  the  program.  Users  at  the 
local  base  supply  activity  were  allowed  to  examine  and 
experiment  with  the  program  to  ensure  the  program  met  their 
needs.  During  the  review  by  the  users,  the  researcher-  made 
changes  as  necessary  to  make  the  system  more  responsive  to 
the  needs  of  the  users. 

Documenting  the  Program.  Documentation  was  provided  by 
written  directions  <a  user’s  guide)  explaining  how  the 
programs  operate  and  by  comments  placed  within  the  program 
code  explaining  the  logic  of  various  sections  of  the 
programs.  The  purpose  of  the  documentation  was  to  assist 
the  reader  in  understanding  the  programs  created  during  this 
study  and  to  assist  personnel  assigned  to  the  Logistics 
Management  Center,  should  changes  or  modification  of  the 
programs  become  necessary.  The  user’s  guide  is  contained  in 
appendix  B. 


32 


V. 


Conclusions  and  Recommendat  ions 


Summary 

The  purpose  of  this  research  was  to  apply  database 
management  techniques  to  the  management  of  the  reports  of 
discrepancies.  The  overall  goal  was  to  reduce  the  number  of 
manhours  required  to  manage  the  program  and  to  improve  the 
reliability  of  information.  Using  the  knowledge  acquired 
from  an  in-depth  review  of  literature  concerning  the  ROD 
program  and  detailed  information  provided  by  potential 
users,  the  researcher  developed  an  application  program  to 
accomplish  the  overall  goal.  The  application  program, 
entitled  Report  of  Discrepancy  Information  System  (RODIS), 
could  have  universal  application  to  all  Air  Force  base 
supply  organizations.  Personnel  assigned  to  the  Air  Force 
Logistics  Management  Center  will  test  and,  if  necessary, 
further  refine  RODIS. 


Conclusions 

In  this  study,  the  researcher  developed  application 
programs  designed  to  automate  the  manual  procedures  of  the 
ROD  program.  While  the  program  is  a  positive  step  towards 
improving  the  efficiency  of  assigned  personnel,  it  is  not  a 
cure  all.  Instead,  it  is  only  a  tool  that,  when  used 
properly,  could  aid  assigned  personnel  in  performing  their 
duties  smarter  and  in  a  more  timely  manner. 
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As  with  any  computer  system,  RODIS  will  only  be  as 
accurate  as  the  information  the  user  enters  into  the  system. 
Simply  stated,  "Junk  in,  junk  out!”  For  this  program  to 
benefit  the  user,  the  user  must  take  care  to  ensure  that  the 
information  entered  into  the  system  is  as  accurate  as 
possible.  Without  user  commitment  to  accuracy,  RODIS  wilL 
be  little  more  than  a  collection  of  menu  screens. 

All  testing  and  further  development  of  RODIS  will  be 
conducted  by  personnel  assigned  to  the  Logistics  Management 
Centex  at  Gunter  AFB,  Alabama.  RODIS  was  examined  by 
personnel  assigned  the  local  supply  organization.  The 
response  has  been  positive,  and  copies  were  given  to  the 
personnel  for  their  use. 

Recommendations 

Recommendations  for  further  study  fall  into  two  basic 
areas.  The  first  deals  with  revising  the  SF  Form  364.  The 
second  addresses  establishing  an  automated  link  between  the 
bases  and  the  depots. 

SF  Form  364 .  A  study  should  be  conducted  to  determine 
how  the  SF  Form  364  should  be  revised.  During  this  study, 
the  research  observed  that  many  of  the  blocks  on  the  SF  Form 
364  were  rarely  used  (blocks  5b,  6,  7a,  and  7b).  If  this  is 

the  case,  the  form  could  be  simplified  by  either 
consolidating  or  totally  eliminating  unnecessary  blocks. 

With  the  capabilities  of  RODIS  to  print  information  directly 
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on  to  the  SF  Form  364,  some  effort  should  be  made  to  adapt 
the  forms  so  that  they  may  be  put  through  a  standard 
printer.  This  would  save  additional  man-hours  by 
eliminating  the  need  for  the  clerk  to  type  the  information 
on  the  SF  Form  364.  The  clerk  could  print  the  information 
directly  from  the  computer. 

Automated  Link.  A  study  should  be  conducted  to 
determine  the  feasibility  of  establishing  some  type  of 
electronic  link  between  the  bases  and  the  depots. 
Establishment  of  an  electronics  link  would  greatly  reduce 
the  paperwork  load  between  the  bases  and  the  depots  and 
provide  more  real-time  status  and  disposition  of  damaged 
assets. 
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Appe nd i x  A :  Report  of  Discrepancy  Information  System 

Data  Dictionary 

The  RODIS  data  dictionary  is  comprised  of  two 
databases,  ROD_F I LE . DBF  and  I NACT I VE. DBF.  RGD_F I LE. DBF 
contains  all  open  reports  while  INACTIVE. DBF  contains  the 
closed/completed  reports.  Because  the  structure  of  the  two 
is  identical,  the  database  structure  is  shown  only  once. 

The  template  column  identifies  restrictions  placed  on  the 
characters  RODIS  will  accept  as  inputs  to  the  individual 
fields  within  the  databases.  An  ”A”  means  an  alpha 
character  is  required.  A  ”9”  means  a  numeric  character  is 
required  while  a  "X"  means  that  either  an  alpha  or  numeric 
is  acceptable. 


ROD  FILE. DBF  and  INACTIVE. DBF 


Field  Name 

Data  Element 

Type 

Length 

Template 

Depot  Name 

DEPOTNAME 

Char 

30 

Deport  Address 

DEPOT  ADD 

Char 

30 

Report  Number 

RPT  NUMBER 

Num 

8 

99999999 

Routing  Ident 

ROUTING  ID 

Char 

3 

Shipper  Name 

SHIP  NAME 

Char 

28 

Shipper  Address 

SHIP  ADD 

Char 

28 

Requisition  Nbr 

REQ  NUMBER 

Char 

15 

A A9 99 9999 9 9999 A 

NSN/PN 

NSN  OR  PN 

Char 

15 

9999AAAAAAAAAAA 

Nomenclature 

NOUN 

Char 

20 

Unit  of  Issue 

U1 

Char 

2 

AA 

Qty  Shipped 

QTY  SHIP 

Num 

5 

99999 

Qty  Received 

QTY  RCVD 

Num 

5 

99999 

Bad  Quantity 

BAD  QTY 

Num 

5 

99999 

Unit  Cost 

UN I T_COST 

Num 

7 

9999. 99 

Total  Cost 

TOTAL  COST 

Num 

7 

9999. 99 

Discrep  Code 

DSCP  CODE 

Char 

2 

A9 

Action  Code 

ACT I ONCODE 

Char 

2 

9A 

Fol low-up  Date 

DUE  FOLLUP 

Date 

8 

Last  Follow-up 

LAST  FOLL 

Date 

8 

Date  Completed 

DATE  COMP 

Date 

3 

Remarks  1 

REMARKS1 

Char 

76 

Remarks  2 

REMARKS2 

Char 

76 

Remarks  3 

REMARKS3 

Char 

76 

Remarks  4 

REMARKS4 

Char 

76 

Remarks  5 

REMARKS5 

Char 

76 

Remarks  6 

REMARKS6 

Char 

76 

Narae/Rank 

NAME  RANK 

Char 

50 

Duty  Title 

DUTY  TITLE 

Char 

50 

Appendix  B:  Report  of  Discrepancy  Information 

System  User's  Guide 

Overview 

This  appendix  addresses  the  purposes/functions  of  the 
programs  that  comprise  RODIS.  The  purpose  of  this  appendix 
is  to  assist  the  reader  in  understanding  and  using  the 
programs  and  to  assist  personnel  assigned  to  the  Logistics 
Management  Center,  should  changes  or  modifications  to  the 
original  programs  become  necessary. 

Report  of  Discrepancy  Information  System  (RODIS) 

RODIS  is  a  menu-driven  system  that  prompts  the  user  to 
select  the  action  to  be  taken.  Because  of  this  built-in 
feature,  most  of  the  system's  operations  are  self- 
explanatory.  The  system  provides  users  the  capability  to 
electronically  store,  update,  and  print  forms  which  were 
manually  produced  in  the  past.  The  system  is  composed  of 
twelve  individual  programs,  each  performing  a  different 
function.  Figure  4  depicts  the  hierarchy  of  RODIS  programs. 


Figure  4.  Hierarchy  of  RODIS  Major  Programs. 
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MA I NMENU . PRG .  This  program  provides  an  options  menu 
from  which  the  user  selects.  The  user  accesses  RODIS  by 
typing  DO  MA I NMENU  at  the  dot  prompt  and  pressing  ENTER. 
Afterwards,  an  introductory  screen  (along  with  a  system 
prompt  informing  the  user  to  press  any  key  to  continue) 
appears.  After  the  user  presses  a  key,  the  options  menu 
screen  appears.  The  user  then  enters  the  number  for  the 
desired  function.  Figure  5  displays  the  option  screen. 


OPTIONS  MENU 

1 . 

Add  New  ROD 

2. 

Update  Open  ROD 

3 . 

Delete  ROD  from 

OPEN  file 

4  . 

Delete  ROD  from 

CLOSED  file 

5. 

Report  Options 

6. 

Print  ROD 

0. 

EXIT  SYSTEM 

Select  _ 

Figure  5.  MAINMENU.PRG  Options  Menu. 

ADDRQD. PRG .  The  purpose  of  this  program  is  to  allow  the 
user  to  add  reports  to  the  database.  If  the  user  enters  the 
number  ”1"  at  the  options  menu,  the  ROD  add  screen  appears. 
First,  the  user  first  enters  the  report  number  for  the 
report.  After  this  entry  is  made,  the  user  enters  the 
information  into  the  appropriate  data  field  as  it  would 
appear  on  the  SF  Form  364.  The  system  accommodates  data 
entry  through  the  use  of  two  input  screens,  which  resemble 
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the  SF  Form  364,  After  the  user  enters  data  into  the  last 
data  field,  the  computer  prompts  the  user  to  decide  whether 
or  not  to  add  the  report  to  the  database.  If  the  user 
chooses  yes,  the  system  adds  the  report  to  the  database  and 
presents  a  new  add  screen.  If  the  user  enters  the  number  0 
as  the  report  number,  the  system  returns  to  the  options  menu. 

UPDATRQD. PRG.  This  program  allows  the  user  to  update  a 
report  within  the  database.  If  the  user  chooses  the  number 
”2”  at  the  options  menu,  the  ROD  update  screen  appears.  The 
user  must  enter  a  report  number  that  is  contained  within  the 
database.  If  not,  the  computer  displays  the  following 
message,  ’’REPORT  NUMBER  DOES  NOT  EXIST  WITHIN  DATABASE". 

This  message  will  continually  be  displayed  until  the  user 
either  enters  a  report  number  that  exists  within  the  system 
or  enters  the  number  "0”,  which  will  cause  the  system  to 
return  to  the  options  menu.  If  the  user  enters  a  report 
number  that  exists  within  the  system,  the  information,  as  it 
was  last  stored,  will  appear  on  the  screen.  The  system 
advances  the  cursor  to  each  data  field  on  the  screen  so  the 
user  can  either  leave  the  information  as  is  (by  pressing 
ENTER)  or  change  the  information  (by  typing  the  new 
information).  The  system  functions  as  a  word  processor  and 
accepts  most  keyboard  functions,  such  as  capitalization, 
deletion,  and  insertion. 

DELOPEN . PRG .  This  program  deletes  reports  from  the 
database.  If  the  user  chaoses  the  number  "3”  from  the 
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options  menu,  the  open  ROD  delete  screen  appears.  The  user 
must  enter  a  report  number  that  exists  within  the  database  or 
the  system  will  display  a  message  informing  the  user  the 
report  number  does  not  exist  within  the  database.  When  the 
user  enters  a  valid  report  number,  the  system  displays  the 
report  associated  with  the  specified  report  number.  The 
system  does  not  allow  the  user  to  change  any  of  the  data 
fields.  The  system  then  prompts  the  user  to  decide  whether 
or  not  to  delete  the  file.  If  the  user  chooses  yes,  the 
system  asks  the  user  to  verify  the  decision  by  making  the 
same  response.  If  the  user  responds  yes  to  the  second  system 
prompt,  the  system  deletes  the  file  from  the  open  database 
(ROD_FILE. DBF)  and  transfers  the  file  to  the  closed 
( INACTIVE. DBF)  database.  The  system  informs  the  user  the 
record  was  deleted  and  returns  the  user  to  the  ROD  delete 
screen.  If  the  user  enters  the  number  ”0”  in  the  report 
number  block,  the  system  exits  the  delete  function  and 
returns  to  the  options  menu. 

DELCLOSE. PRG.  This  program  deletes  closed/completed 
reports  from  the  closed  database.  If  the  user  chooses  the 
number  "4”  from  the  options  menu,  the  closed  ROD  delete 
screen  appears.  The  procedures  of  this  program  are  identical 
to  those  of  DELOPEN. PRG  discussed  above. 

RPTMENtl. PRG .  This  program  provides  the  user  the  option 
of  producing  five  reports  from  the  Report  of  Discrepancies 
(RODs)  stored  within  the  open  database.  If  the  user  enters 


the  number  "5”  at  the  options  menu,  the  system  presents  a 
menu  screen  listing  five  options  (see  Figure  6).  The  options 
are  self-explanatory  and  are  not  discussed.  After  the  user 
selects  the  desired  function,  the  system  prompts  the  user  to 
specify  whether  the  output  should  go  to  the  printer  or  the 
screen.  Following  the  users  selection,  the  system  directs 
the  output  to  the  specified  device.  The  system  then  returns 
to  the  report  options  menu.  If  the  user  enters  the  number 
”0”,  the  system  returns  to  the  options  menu. 


REPORT  OPTIONS  MENU 

i . 

Open  RODs  by  Report  Number 

2. 

Open  RODs  by  Requisition  Number 

3. 

Open  RODs  by  Date  Due  Follow-up 

4. 

Closed/Completed  RODs 

5. 

Total  Records  and  Dollar  Value 

0. 

EXIT 

Select 

Figure  6.  RPTMENU. PRG  Options  Menu. 

PR  I NTROD . PRG .  This  program  prints  the  information 
stored  within  the  database  for  a  specified  report.  If  the 
user  chooses  the  number  ”6”  from  the  options  menu,  the  print 
screen  appears.  The  user  must,  enter  the  number  of  a  report 
that  exists  within  the  system.  If  the  number  does  not  exist, 
the  system  displays  a  message  notifying  the  user  the  report 
number  does  not  exist.  After  the  user  enters  a  valid  number, 
the  system  displays  the  information  contained  in  the  report. 
The  system  then  prompts  the  user  to  decide  whether  to  print 
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the  information.  If  the  user  enters  yes,  the  system  prompts 
the  user  to  decide  whether  to  send  the  output  to  the  screen 
or  the  printer.  Following  the  user’s  selection,  the  system 
sends  the  output  to  the  device  specified.  The  system  then 
returns  to  the  report  options  menu. 
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Appendix  C:  Report  of  Discrep ancy  I niormat ion  S y ste m 

Pro^ra  m_Co  do 

************************************************************ 


*  Program..:  MAINMENU.PRG  * 

*  Author.  .  .  :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/1989  * 

*  Note . :  Main  menu.  This  program  provides  a  menu  that  * 


*  lists  six  functions  from  which  the  users  selects.  * 

************************************************  ************ 

*  Change  the  environment  by  setting  talk  and  bell  off. 

SET  TALK  OFF 

SET  BELL  OFF 

CLEAR 

SET  COLOR  TO  W/B 
TEXT 


REPORT  OF  DISCREPANCY  INFORMATION  SYSTEM  CRODJS) 


Welcome  to  the  Report  of  Discrepancy  Information  System. 
This  is  a  menu  driven  information  system  designed  to  help 
manage  the  base-level  Report  of  Discrepancy  (ROD)  Program. 

The  programs  for  RODIS  were  written  using  dBASE  III  Plus  and 
designed  to  run  on  any  IBM  compatible  computer  system. 


ENDTEXT 

*  Draw  line  around  text. 

Cl,  0  TO  20,79  DOUBLE 

WAIT  SPACEC25)  +  "Press  any  key  to  continue" 
CLEAR 
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M  Loop  as  long  as  user  desires  another  action. 
DO  WHILE  . T. 

*  Display  customer  menu  upon  screen 
CLEAR 


<0 

5, 

29 

SAY  "OPTIONS  MENU" 

(2 

9, 

26 

SAY  "1. 

Add  New  ROD" 

<2 

10, 

26 

SAY  "2. 

Update  Open  ROD” 

<2 

11, 

26 

SAY  "3. 

Delete  ROD  from  OPEN  file” 

<2 

12, 

26 

SAY  "4. 

Delete  ROD  from  CLOSED  file 

(2 

13, 

26 

SAY  "5. 

Report  Options" 

(2 

14, 

26 

SAY  ”6. 

Print  ROD” 

(2 

16, 

26 

SAY  "0. 

EXIT  SYSTEM" 

18, 

29 

SAY  "Select" 

*  Put  double  line  around  menu  and  use  double  line  to 

*  separate  title  from  menu  choice. 

<0  4,0  TO  19,79  DOUBLE 

<2  6,1  TO  6,78  DOUBLE 

*  Initialize  selectnum  to  0.  Prompt  user  for  choice, 
selectnum  =  0 

<2  18,  37  GET  selectnum  PICTURE  "9”  RANGE  0,6 

READ 

CLEAR 

*  Take  appropriate  action  based  on  value  of  selectnum 
IF  selectnum  =  0 

*  Return  environment  to  original  state  and  leave 

*  program. 

SET  TALK  ON 
SET  BELL  ON 
RETURN 

END  I  F 

IF  selectnum  =  1 

*  Add  new  ROD 

(2  19,  10  SAY  "Loading  ADD  program,  please  wait" 

SET  PROCEDURE  TO  addrod 
DO  interact 
SET  PROCEDURE  TO 
END  I  F 

IF  selectnum  =  2 

*  Update  Existing  ROD 

(2  19,  10  SAY  "Loading  UPDATE  program,  please  wait" 

SET  PROCEDURE  TO  updatrod 
DO  interact 
SET  PROCEDURE  TO 
END  IF 
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IF  selectnum  =  3 

*  Delete  ROD  from  OPEN  file. 

(9  19,  10  SAY  "Loading  DELETE  program,  please  wait 

SET  PROCEDURE  TO  delopen 
DO  Interact 
SET  PROCEDURE  TO 
END  I F 

IF  selectnura  =  4 

*  Delete  ROD  from  Closed  file. 

(9  19,  10  SAY  "Loading  DELETE  program,  please  wait 

SET  PROCEDURE  TO  dele lose 
Do  interact 
SET  PROCEDURE  TO 
END  I  F 

IF  selectnum  =  5 
%  Reports  option 

(9  19,  10  SAY  "Loading  REPORT  OPTIONS,  please  wait 

DO  rptrnenu 
END  IF 

IF  selectnum  =  6 

*  Print  option 

(9  19,  10  SAY  "Loading  PRINT  program,  please  wait" 

SET  PROCEDURE  TO  printrod 
DO  interact 
SET  PROCEDURE  TO 
END  I  F 

ENDDO 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX^  ***** 

*  Program. . :  ADDROD. PRG  * 

*  Author. . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/1989  * 

*  Note . :  Program  adds  Report  of  Discrepancies  (ROD)  * 

*  to  the  file  using  a  input  screen.  * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx  XXXXXXXXXXXXXXXXXXXXXX  XX 
X  Procedure.  .  :  INTERACT  X 

X  Purpose. . . . :  This  is  the  main  procedure  within  this  X 

X  procedure  file.  It  contains  the  overall  interaction  X 
X  with  the  user  in  adding  records  to  the  ROD  file.  * 

PROCEDURE  interact 


*  Open  database  file. 

USE  rodjile  INDEX  i_refnbr 

X  Continuous  loop  until  user  enters  0  at  which  time  the 
X  program  exits  the  loop. 

DO  VH ILE  . T. 

CLEAR 


<2 

1, 

28 

SAY  ’’ADD  NEW  ROD  SCREEN” 

<2 

1, 

70 

SAY  DATEO 

(2 

3, 

26 

SAY  "Report  Number:” 

(2 

3, 

52 

SAY  ”  <0  TO  EXIT)’’ 

<2 

5, 

2 

SAY  ’’Depot:” 

(2 

5, 

42 

SAY  "Shipper” 

(2 

6> 

2 

SAY  "Name” 

(2 

6, 

42 

SAY  "Name” 

(2 

7  , 

2 

SAY  "Address” 

(2 

V, 

42 

SAY  "Address” 

<2 

9, 

2 

SAY  ”  Reqiiisit  ion  Number” 

(2 

9, 

42 

SAY  "Routing  Identifier" 

(2 

11, 

26 

SAY  "DISCREPANCY  DATA” 

(2 

12, 

48 

SAY  ” Qty” 

(2 

12, 

57 

SAY  ” Qty” 

<2 

12, 

64 

SAY  "Disc” 

(2 

12, 

71 

SAY  "Unit” 

(2 

13, 

2 

SAY  "NSN/Part  Number  Nomenclature 

(2 

13, 

43 

SAY  ”UI” 

(2 

13, 

48 

SAY  "Shipped” 

(2 

13, 

57 

SAY  "Rcvd” 

(2 

13, 

64 

SAY  "Qty” 

<2 

13, 

71 

SAY  "Cost” 

(2 

16, 

2 

SAY  "Total" 

0 

16, 

12 

SAY  ’’Discrepancy” 

(2 

16, 

27 

SAY  "Action" 

(0 

16 , 

37 

SAY  "Date  Due” 

(2 

16, 

51 

SAY  "Date  Last" 

(2 

16  , 

70 

SAY  "Date" 

C <5 

17, 

2 

SAY  ” Cost” 
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@17,  15  SAY  ’’Code” 

@17,  28  SAY  ’’Code” 

@  17,  37  SAY  ’’Follow-up” 

@  17,  51  SAY  "Follow-up” 

@  17,  64  SAY  ’’Completed/Closed” 

*  Draw  lines  to  separate  input  data. 

@  2,  0  TO  20,  79  DOUBLE 

@  4,  1  TO  4,  78  DOUBLE 

@  10,  1  TO  10,  78  DOUBLE 

@  15,  1  TO  15,  78 

*  Initialize  memory  variables  for  user  inputs. 
STORE  0  TO  m_rptnbr 

STORE  SPACE <30 )  TO  m_dptname 
STORE  SPACE (3)  TO  m^rout id 
STORE  SPACE (30)  TO  mdptadd 
STORE  SPACE (28)  TO  ra_shipname 
STORE  SPACE <28 )  TO  m_shipadd 
STORE  SPACE <2 )  TO  m_ui 
STORE  0  TO  m_qtyship 
STORE  0  TO  m_qtyrcvd 
STORE  0  TO  m_badqty 
STORE  SPACE < 15)  TO  m  reqnnbr 
STORE  SPACE  <  15)  TO  m__nsn 
STORE  SPACE <20 )  TO  m_noun 
STORE  0. 00  TO  m_unitcost 
STORE  0.00  TO  m_tot least 
STORE  SPACE <2 )  TO  m_dcspcode 
STORE  SPACE <8 )  TO  m_duefoll 
STORE  SPACE <8)  TO  m  lastfoll 
STORE  SPACE <2 )  TO  m^actioncd 
STORE  SPACE <8 )  TO  m_datecomp 
STORE  SPACE <76 )  TO  m_remarksl 
STORE  SPACE <76 )  TO  ra_remarks2 
STORE  SPACE (76)  TO  m_remarks3 
STORE  SPACE <76 )  TO  m_reraarks4 
STORE  SPACE (76)  TO  m  remarks5 
STORE  SPACE <76 )  TO  m_remarks6 
STORE  SPACE (50)  TO  m_name 
STORE  SPACE (50)  TO  m_title 

*  Use  initialized  variables  To  clear  the  screen. 

@  3,  41  SAY  m_rptnbr  PICTURE  ”99999999” 

@  6,  10  SAY  m_dptname 

@  6,  51  SAY  m_shipname 

@  7,  10  SAY  m_dptadd 

@  7,  51  SAY  mshipadd 

@  9,  22  SAY  m_reqnnbr 

@  9,  62  SAY  m_routid 

@14,  2  SAY  ra_nsn 

@  14,  20  SAY  m  noun 
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©14,  43  SAY  m_ui 

@  14,  48  SAY  m_qtyship 

@  14,  57  SAY  m_qtyrcvd 
@  14,  64  SAY  m_badqty 

@  14,  71  SAY  m_unitcost  PICTURE  ”99999.99" 

©18,  2  SAY  m_tot  lcost,  PICTURE  ”99999.99” 

@18,  16  SAY  m_dcspcode 

@  18,  29  SAY  m_actioncd 

@  18,  37  SAY  m_duef ol 1  PICTURE  ”@D" 

@  18,  51  SAY  mlastfoll  PICTURE  ”@D” 

@18,  69  SAY  m_datecomp  PICTURE  ”@D" 

*  Get  report  number  from  the  user. 

DO  getrpt 

*  If  report  number  =  0,  exit  loop. 

IF  mrptnbr  =  0 

EXIT 
END  IF 

*  Prepare  data  field  for  input. 
m_dptname  =  rod_f 1 le->depotname 
m_shipname  =  rod_f i le->ship_name 
mdptadd  =  rod_f i le- >  depot  _add 
mshipadd  =  rod_f i le->ship_add 
m_routid  =  rod_f i le- > rout ing_id 
m_reqnbr  =  rod_f i le- > req_nurober 
m_non  =  rod_f  i  le->  nsn_or__pn 
m_ui  =  rod  file->ui 
m_qtyship  =  rod_f i le->qty_ship 
m_qtyrcvd  =  rod_f i le->qty_rcvd 
m_badqty  =  rod_f i le- > bad_qty 
ra_totlcost  =  rod_f i le- > tota l_cost 
m_dcspcode  =  rod _f i Ie->dscp_code 
m_duefoll  =  rod_f i le->due_f ol lup 
m_lastfoll  =  rod_f i le- > last  foil 
m_actioncd  =  rod_f i le->act ioncode 
m_datecomp  =  rod_f i le- >date _comp 
ra__reraarksl  =  rod_f  i  le- > remarks  1 
m_remarks2  =  rodf i le->remarks2 
m__remarks3  =  rod_f  i  le->remarks3 

m  remarks4  =  rod_f i le->remarks4 
m_remarks5  =  rod_f i le- > reraar ks5 
m_remarks6  =  rod_f i le->reraar ks6 
m_name  =  rod_f i le- > name_rank 
ra_title  =  rod_f i le- >duty_t i t le 

*  Get  info  concerning  other  variables  from  the  user. 
DO  get  info 

CLEAR 
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*  Create  second  screen  for  input. 
DO  screen2 


*  Prompt  user  to  decide  whether  to  update  database. 

SET  COLOR  TO  R+ 

WAIT  "Add  record  to  database?  (Y  or  N>"  TO  userresp 
SET  COLOR  TO  V/B 
IF  UPPER  (.user reap)  #  ”Y" 

CLEAR 
END  IF 

*  It  the  user  input  " Y” ,  then  update  database. 

IF  UPPER (userresp)  =  " Y" 

*  Add  a  blank  record  to  the  database  file. 

APPEND  BLANK 

*  Input  memory  variable  into  corresponding  database 

*  field. 

REPLACE  rod_f ile-)rpt_number  WITH  m_rptnbr 
REPLACE  rod_f ile->depotname  WITH  m_dptnarae 
REPLACE  rod_f i le- > ship_name  WITH  m_shipname 
REPLACE  rod_f  i  le->depot_add  WITH  m__dptadd 
REPLACE  rod_f i le- > ship_add  WITH  m_shipadd 
REPLACE  rod_file->ui  WITH  m_ui 
REPLACE  rod_f ile->qty_ship  WITH  mqtyship 
REPLACE  rodf i le->qty_rcvd  WITH  raqtyrcvd 
REPLACE  rod_f ile->bad_qty  WITH  m_badqty 
REPLACE  rod_f i le-> rout ingid  WITH  m  routid 
REPLACE  rod_f i le-> req_number  WITH  m  reqnnbr 
REPLACE  rod_f i le->nsn_or_pn  WITH  m_nsn 
REPLACE  rod_f i le-> noun  WITH  m_noun 
REPLACE  rod_f ile->unit_cost  WITH  m_unitcost 
REPLACE  rod_f i le- > tota l_cost  WITH  m_totlcost 
REPLACE  rod_f i le-)dscp_code  WITH  mdcspcode 
REPLACE  rod_f i le->due_f ol 1  up  WITH  m_duefoll 
REPLACE  rod_f i le-> last_f ol 1  WITH  mlastfoll 
REPLACE  rodf i le->act ioncode  WITH  mactioncd 
REPLACE  rod_f 1 le->date_comp  WITH  m_datecomp 
REPLACE  rod_f i le- > remar ksl  WITH  m_reraarksl 
REPLACE  rod_f i le->remarks2  WITH  m  remarks2 
REPLACE  rod_f  i  le->remarks3  WITH  r.  _remarks3 
REPLACE  rod_f  i  I  e->remarks4  WITH  m_re;narks4 
REPLACE  rod_f 1 le-)remarks5  WITH  m_remarks5 
REPLACE  rod_f i le->remarks6  WITH  m_remarks6 
REPLACE  rod_f i le- > name_rank  WITH  m_narae 
REPLACE  rod_f i le->duty_tit le  WITH  m_title 
message  =  "Record  ADDED  to  database” 

ELSE 

message  =  "Record  NOT  ADDED  to  database" 

END  IF 

*  Clear  and  display  message. 

CLEAR 
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DO  displrasg 
DO  clearmsg 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 

************************************************************ 


*  Procedure. . . :  GETRPT  * 

*  Called  From. :  INTERACT  * 

*  Purpose . :  Obtain  and  validate  the  report  number  from  * 

*  the  user.  * 


PROCEDURE  getrpt 
DO  WHILE  . T. 

*  Obtain  a  reference  number  from  the  user  and  display. 

<3  3,  41  GET  m_rptnbr  PICTURE  ”99999999” 

READ 

(3  3,  41  SAY  m_rpt nbr  PICTURE  ”99999999” 

*  If  report  number  =  0,  exit  from  loop.  If  not  0,  then 

*  attempt  to  find  the  reference  number.  If  found, 

*  display  message  and  exit  the  loop. 

IF  m_rptnbr  =  0 

EXIT 

ELSE 

SEEK  m_rptnbr 

*  For  the  add  program,  no  record  should  exist.  This 

*  helps  to  ensure  that  two  records  do  not  have  the 

*  same  reference  number. 

IF  .NOT.  FOUND  O 

EXIT 

ELSE 

message  =  "ROD  ALREADY  EXISTS  FOR  THIS  REPORT  NUMBER" 
DO  displmsg 
DO  clearmsg 

(3  30,  0  TO  20,  79  DOUBLE 

END  IF 

END  IF 
ENDDO 

RETURN 

************************************************************* 


*  Procedure. . . . :  GET INFO  * 

*  Called  From. . :  INTERACT  * 

*  Purpose . :  To  obtain  and  verify  all  other  fields  * 


************************************************************* 
PROCEDURE  getinfo 

DO  WHILE  . T. 

*  Obtain  values  for  remaining  fields  from  the  user. 
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0 

6, 

10 

GET 

m_dptnarae 

0 

7, 

10 

GET 

ra  dptadd 

<2 

6, 

51 

GET 

m_shipname 

(2 

7, 

51 

GET 

in  shipadd 

@ 

9, 

22 

GET 

m_reqnnbr  PICTURE  ” AA999999999999A 

0 

9, 

62 

GET 

m  routid 

0 

14, 

2 

GET 

ia_nsn  P  ICTURE  '' 9999 AAAA AAA AAAA” 

0 

14, 

20 

GET 

m  noun 

0 

14, 

43 

GET 

ib  ui  PICTURE  ”AA" 

0 

14, 

48 

GET 

ib  qtyship  PICTURE  ”99999’’ 

0 

14, 

57 

GET 

ra  qtyrcvd  PICTURE  ”99999” 

0 

14, 

64 

GET 

ra  badqty  PICTURE  ”99999” 

0 

14, 

71 

GET 

m  unitcost  PICTURE  ”99999.99” 

0 

18, 

2 

GET 

m_tot lcost  PICTURE  ”99999.99” 

0 

18, 

16 

GET 

m  dcspcode  PICTURE  ” A9” 

0 

18, 

29 

GET 

ra  actioned  PICTURE  ”9A” 

0 

18, 

37 

GET 

m  duefoll  PICTURE  ”0D” 

0 

18, 

51 

GET 

m_lastfoll  PICTURE  ”0D” 

0 

18, 

69 

GET 

m  datecorap  PICTURE  ”0D” 

READ 

* 

Display  data 

0 

6, 

10 

SAY 

m  dptname 

0 

7, 

10 

SAY 

m  dptadd 

0 

6, 

51 

SAY 

m  shipname 

0 

7, 

51 

SAY 

m_shipadd 

0 

9, 

22 

SAY 

ra_reqnnbr 

0 

9, 

62 

SAY 

ra  routid 

0 

14, 

2 

SAY 

m_nsn 

0 

14, 

20 

SAY 

ra  noun 

0 

14, 

43 

SAY 

ra_ui 

0 

14, 

48 

SAY 

ra  qtyship 

0 

14, 

57 

SAY 

m  qtyrcvd 

0 

14, 

64 

SAY 

ra_badqty 

0 

14, 

71 

SAY 

m  unitcost  PICTURE  ”99999.99” 

0 

18, 

2 

SAY 

mjotlcost  PICTURE  ”99999.99” 

0 

18, 

16 

SAY 

ra  dcspcode 

0 

18, 

29 

SAY 

ra  actioned 

0 

18, 

37 

SAY 

ra  duefoll  PICTURE  ”0D” 

0 

18, 

51 

SAY 

ra_last f oil  PICTURE  ”0D” 

0 

18, 

69 

SAY 

m  datecorap  PICTURE  ”0D” 

EXIT 

ENDDO 

RETURN 
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■X<  ^  'X  ^  -X>  ^  -X-  X  >A.  X  <X  <X  ■X-  <1<  X  X  X  X  <X>  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  x  X  X  X  X  X  X  X  X  X  X  x  X  X  X  X  X  X  X  X  X 

'T'  T*  ^  ^  'T'  'P  ^  'T'  'T*  'Tv  it'  *  'T*t  *t'  o'  ■'p  'T'  ^  ^  vT'  •T'  ^  ’T*  T*  'v  o'  'Ts  ^  T*  -p  ^  'T*  ■'T'  'T'  ^  ^  ^  ^  -T'  -r*  ^  ^T*  'T  'T'  'r*  ^  ^  -T'  x  /f>  ^ 

*  Procedure. . :  Screen2  * 

*  Purpose. . . . :  Program  provides  a  second  data  entry  form.  * 

PROCEDURE  Screen2 
DO  WHILE  . T. 

@  1,  25  SAY  "ROD  ADD  SCREEN  (CONTINUED)" 

@  1,  70  SAY  DATEO 


(2 

3, 

2  SAY 

1 1 

Remarks :  " 

(2 

12, 

30  SAY 

II 

PREPARING  OFFICIAL” 

(2 

13, 

2  SAY 

II 

Name/Rank/Off  Sym  :" 

(2 

14, 

2  SAY 

♦  » 

Duty  Title/Phone  :” 

* 

initial ize 

variables 

(2 

4, 

2 

SAY 

m 

remarksl 

(2 

5, 

2 

SAY 

m 

remarks2 

(2 

6, 

2 

SAY 

m 

remarks3 

<2 

7, 

2 

SAY 

m_ 

remarks4 

(2 

8, 

2 

SAY 

m 

_remarks5 

<2 

9, 

2 

SAY 

m 

remarks© 

(2 

13,23 

SAY 

m 

name 

<2 

14,23 

SAY 

m 

title 

* 

draw 

lines 

<2 

2, 

0 

TO  16, 

79  DOUBLE 

10, 

1 

TO  10, 

79 

* 

get 

info  from  user 

<2 

4, 

2 

GET 

ra 

remarksl 

(2 

5, 

2 

GET 

m_ 

remarks2 

(2 

6, 

2 

GET 

m_ 

remarks3 

<2 

7, 

2 

GET 

m_ 

remarks4 

(2 

8, 

2 

GET 

m_ 

remarks5 

<2 

9, 

2 

GET 

m_ 

reraarks6 

(2 

13, 

23 

GET 

in 

name 

<2 

14, 23 

GET 

in 

title 

READ 

* 

display  data 

(2 

4, 

2 

SAY 

m 

remarks 1 

(2 

5, 

2 

SAY 

m_ 

_remarks2 

<2 

a. 
w  » 

o 

t-4 

<-*  *  ir 
0/1  L 

m 

.  *"zo 

(2 

7, 

2 

SAY 

m 

remarks4 

(2 

8, 

2 

SAY 

m 

reraarks5 

(2 

9, 

2 

SAY 

ra 

remarks© 

13, 23 

SAY 

m 

name 

(2 

14, 

23 

SAY 

m 

title 

EXIT 


ENDDO 

RETURN 
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***************************  ******************************* 

*  Procedure. . . :  DISPLMSG  * 

*  Called  From.:  Several  procedures 

*  Purpose . :  To  display  the  contents  of  the  variable 

*  called  "message”  * 

PROCEDURE  displmsg 

DO  clearmsg 
SET  COLOR  TO  R+ 

@  19,  10  SAY  message 

SET  COLOR  TO  W/B 

WAIT  SPACE(IO)  +  "Press  any  key  to  continue. . .” 

RETURN 

********************************************************** 


*  Procedure. . . :  CLEARMSG  * 

*  Called  From. :  Several  procedures  * 

*  Purpose . :  To  clear  any  message  that  is  present  on  * 

*  line  19  of  the  data  entry  screen.  * 


********************************************************** 
PROCEDURE  clearmsg 

(3  19,  10  SAY  SPACE (68 ) 

<3  20,  10  SAY  SPACE  <68 ) 

RETURN 
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*  * 


*********************************************************** 


X  Program,  .  :  UPDATROD.PRG 
X  Author. . . :  Capt  James  L.  Johnson 
X  Date . :  6/30/1989 

*  Note . :  Program  updates  ROD  files  through  use  of  an 


X  input  screen. 

********************************************************** 
******* *************************************************** 

*  Procedure. . :  INTERACT 

X  Purpose. . . . :  This  is  the  main  procedure  within  this 

*  procedure  file.  It  contains  the  overall  interaction 

*  with  the  user  in  adding  records  to  the  ROD  file.  * 

*********************************************************** 
PROCEDURE  interact 

*  Open  database  file. 

USE  rod_f i le  INDEX  irefnbr 

*  Continuous  loop  until  user  enters  0  at  which  time  the 
X  program  exits  the  loop. 

DO  WHILE  . T. 


CLEAR 
®  1, 

28 

SAY 

"ROD  UPDATE  SCREEN” 

0 

1, 

70 

SAY 

DATEC) 

0 

3, 

26 

SAY 

"Report  Number:" 

0 

3, 

52 

SAY 

" <0  TO  EXIT)" 

0 

5, 

2 

SAY 

"Depot :  " 

@ 

5, 

42 

SAY 

"Shipper" 

(9 

6, 

2 

SAY 

”  Name" 

0 

6 , 

42 

SAY 

”  Name” 

(9 

7, 

2 

SAY 

" Address” 

(9 

7, 

42 

SAY 

” Address” 

(9 

9, 

2 

SAY 

"Requisition  Number" 

(9 

9, 

42 

SAY 

"Routing  Identifier” 

(9 

11, 

26 

SAY 

"DISCREPANCY  DATA” 

(9 

12, 

48 

SAY 

”Qty” 

(9 

12, 

57 

SAY 

"Qty” 

19 

12, 

64 

SAY 

” Disc” 

(9 

12, 

71 

SAY 

"Unit” 

(9 

13, 

2 

SAY 

"NSN/Part  Number  Nomenclature" 

(9 

13, 

43 

SAY 

„Ui" 

(9 

13, 

48 

SAY 

"Shipped” 

(9 

13, 

57 

SAY 

” Rcvd” 

<9 

13, 

64 

SAY 

"Qty” 

0 

13, 

71 

SAY 

"Cost" 

0 

16, 

2 

SAY 

"Total” 

0 

16, 

12 

SAY 

” Discrepancy” 

0 

16, 

27 

SAY 

” Action" 

0 

16, 

37 

SAY 

"Date  Due" 

0 

16, 

51 

SAY 

"Date  Last" 

0 

16, 

70 

SAY 

"Date” 

0 

17, 

2 

SAY 

"Cost” 
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*■*■■***-*■**■** 


@17,  15  SAY  ’’Code” 

@17,  28  SAY  ’’Code" 

@  17,  37  SAY  ’’Follow-up” 

@  17,  51  SAY  "Follow-up” 

@  17,  64  SAY  ’’Completed/Closed” 

*  Draw  lines  to  separate  input  data. 

@  2,  0  TO  20,  79  DOUBLE 

@  4,  1  TO  4,  78  DOUBLE 
@  10,  1  TO  10,  78  DOUBLE 

@  15,  1  TO  15,  78 

*  Initialize  memory  variables  for  user  inputs. 
STORE  0  TO  m_rptnbr 

STORE  SPACE (30)  TO  m_dptname 
STORE  SPACE (30)  TO  m_dptadd 
STORE  SPACE (28)  TO  m_shipname 
STORE  SPACE (28)  TO  m_shipadd 
STORE  SPACE (2)  TO  m_ui 
STORE  0  TO  m_qtyship 
STORE  0  TO  m_qtyrcvd 
STORE  0  TO  m_badqty 
STORE  SPACE (15)  TO  mreqnnbr 
STORE  SPACE (3)  TO  mroutid 
STOPE  SPACE (15)  TO  m_nsn 
STORE.  SPACE  (20)  TO  m  noun 
STORE  0.00  TO  munitcost 
STORE  0.00  TO  ra_tot least 
STORE  SPACE (2)  TO  m_dcspcode 
STORE  SPACE (8)  TO  mduefoll 
STORE  SPACE (8)  TO  m  last  foil 
STORE  SPACE (2)  TO  ra  actioned 
STORE  SPACE (8)  TO  radatecomp 
STORE  SPACE (76)  TO  ra_jremarksl 
STORE  SPACE (76)  TO  m_remarks2 
STORE  SPACE (76)  TO  ra_remarks3 
STORE  SPACE (76)  TO  m_remarks4 
STORE  SPACE (76)  TO  ra_remarks5 
STORE  SPACE (76)  TO  m_remarks6 
STORE  SPACE (50)  TO  ra_name 
STORE  SPACE  (50)  TO  m_title 

*  Use  initialized  variables  To  clear  the  screen. 

@  3,  41  SAY  m_rpt nbr  PICTURE  ”99999999” 

@  6,  10  SAY  ra_dptnarae 

@  6,  51  SAY  ra_shipname 

@  7,  10  SAY  m_dptadd 

@  7,  51  SAY  ra_shipadd 

@  9,  22  SAY  m_reqnnbr 

@  9,  62  SAY  m_routid 

@14,  2  SAY  mnsn 

@  14,  20  SAY  ra  noun 
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@14,  43  SAY  m_ui 

@  14,  48  SAY  m_qtyship 

@  14,  57  SAY  m_qtyrcvd 

@14,  64  SAY  m_badqty 

@  14,  71  SAY  m_uni tcost  PICTURE  ”99999.99” 

@  18,  2  SAY  m_tot least  PICTURE  ”99999.99” 

@18,  16  SAY  m_dcspcode 

@  18,  29  SAY  m_actioncd 

@  18,  37  SAY  m_duef ol 1  PICTURE  ”@D” 

@  18,  51  SAY  m_lastfol 1  PICTURE  ”@D” 

@18,  69  SAY  ra_datecomp  PICTURE  ”@D” 

*  Get  report  number  from  the  user. 

DO  getrpt 

*  If  report  number  =  0,  exit  loop. 

IF  ra_rptnbr  =  0 

EXIT 
END  IF 

*  Get  info  concerning  other  variables  from  the  user. 
DO  get  info 

CLEAR 

DO  screens 

*  Prompt  user  to  decide  whether  to  update  database. 
SET  COLOR  TO  R+ 

WAIT  "Update  database?  (Y  or  N>”  TO  userresp 
SET  COLOR  TO  W/B 
IF  UPPER (userresp)  #  ” Y” 

CLEAR 
END  IF 

*  If  the  user  input  ” Y” ,  then  update  database. 

IF  UPPER (userresp )  =  ” Y” 

REPLACE  rod_f 1 le->rpt_number  WITH  rarptnbr 
REPLACE  rod  f i le->depotname  WITH  ra  dptnarae 
REPLACE  rod _f i I e- >sh i p^narae  WITH  ra_shipname 
REPLACE  rod  _f  i  le->depot__add  WITH  ra_dptadd 
REPLACE  rod_f i le->ship_add  WITH  m_shipadd 
REPLACE  rod_f i le- > u i  WITH  m_ui 
REPLACE  rod_f i le->qty_ship  WITH  raqtyshi p 
REPLACE  rod_f i le->qty_rcvd  WITH  ra_qtyrcvd 
REPLACE  rod_f i le-> bad_qty  WITH  m  badqty 
REPLACE  rod  f  I  le- >rout.  i  ng_id  WITH  m  rout.id 
REPLACE  rod_  f  i  le- >  req_number  WITH  ra  reqnnbr 
REPLACE  rod  flle->nsn  or_pn  WITH  ra  risn 
REPLACE  rod _f i 1 e- > noun  WITH  m  noun 
REPLACE  rod  r i le- > un i t  cost  WITH  ra _ uni tcost 
REPLACE  r od_t i le- > tota 1  cost  WITH  mtotlcost 
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REPLACE  rod_f 1 le- > dscp_code  WITH  m_dcspcode 
REPLACE  rod_f i le->due_f ol lup  WITH  mduefoli 
REPLACE  rod_f 1 le-> last _f o 1 1  WITH  m_lastfoll 
REPLACE  rod_f  i  le- >  act  ioncode  WITH  m_actioncd 
REPLACE  rod_f i le- >date_comp  WITH  m  datecomp 
REPLACE  rod_f i le- > remarksl  WITH  m_remarksl 
REPLACE  rod_f i le- > remar ks2  WITH  m_remarks2 
REPLACE  rod_f i le- > remarks3  WITH  m_remarks3 
REPLACE  rod_f  i  le->remarks4  WITH  ra_reraarks4 
REPLACE  rod_f i le->remarks5  WITH  ra_remarks5 
REPLACE  rod  f  1  le— > remarks6  WITH  m_remarks6 
REPLACE  rod_f ile->name_rank  WITH  m_name 
REPLACE  rod_f i le->duty_t it le  WITH  mtitle 
message  =  "Record  UPDATED  within  database" 

ELSE 

message  =  "Record  NOT  UPDATED  within  database” 

END  IF 

*  Clear  and  display  message. 

CLEAR 

DO  displmsg 
DO  olearmsg 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 

*********************************************************** 

*  Procedure. . . :  GETRPT  * 

*  Called  From. :  INTERACT  * 

*  Purpose . :  Obtain  and  validate  the  report  number  * 

*  from  the  user.  * 

*******************************************************  **** 
PROCEDURE  get rpt 

DO  WHILE  . T. 

*  Obtain  a  reference  number  from  the  user  and  display, 

co  3,  41  GET  ra  rptnbr  PICTURE  "999999 99" 

READ 

@  3,  41  SAY  m_rptnbr  PICTURE  ”99999999" 

*  If  report  number  =  0,  exit  from  loop.  If  not  0,  then 

*  attempt  to  find  the  reference  number.  If  found, 

*  display  message  and  exit  the  loop. 

IF  ra  rptnbr  =  0 

EXIT 

ELSE 

SEEK  m  rptnbr 
I F  FOUND  < ) 

m_dptname  -  rod_f i le->depotname 
ra__shipname  =  rnd_f  i  le->ship  name 
m_dptadd  =  rodf i le- >depot  add 


m_shipadd  =  rod_f i le->ship  add 
m_routid  =  rod_f i le-> r out i ng_i d 
m_reqnnbr  -  rod_f i le->req_nuraber 
m_nsn  =  rod _f i le- > nsn_or_pn 
m_noun  =  rod_f i le- > noun 
m_ui  =  rod_f i le->u i 
m_qtyshlp  =  rod_f i le->qty_ship 
m_qtyrcvd  =  rod_f i le->qty_rcvd 
m_badqty  =  rod_f i le->bad_qty 
m_unitcost  =  rod_f ile->unit_cost 
ra_totlcost  =  rod_f i le-> tota l_cost 
mdcspcode  =  rod_f i le->dscp  code 
m_duefoll  =  rod_f i le->due_f ol lup 
mlastfoll  =  rod  f i 1 e-> lastf ol 1 
m  actioned  =  rod_f i Ie->act ioncode 
m_datecomp  -  rod_f i le- >date  comp 
m  remarksl  =  rod_f i le->i  emarksl 
m_remarks2  =  rod_f i le->remarks2 
m  reraarks3  =  rod_f i le- > remarksS 
ra  remarks4  =  rod_f i le->remarks4 
m_remarks5  =  r od  f  i  le  -  >  reniar ks5 
ra_remarks6  =  rod_l i le->remarks6 
ra_narae  =  rod  f i le- > narae_rank 
m  title  =  rod_f i 1 e- >duty_t i t le 
EXIT 
ELSE 

message  =  "REPORT  NUMBER  DOES  NOT  EXIST  WITHIN  DATABASE" 
DO  displmsg 
DO  cleat  msg 

@  20,  0  TO  20,  79  DOUBLE 

END  I  F 
END  I F 
ENDDO 

RETURN 

* ***  ******* ************* ************* ***********  ** * *  ***** ** 


*  Procedure. . . . :  GETINFO  * 

*  Called  From. . :  I NTFRACT  * 

*  Purpose . :  To  obtain  and  verify  all  other  fields  * 

*  other  than  the  key  f ie Id .  * 


*********************************************************** 
PROCEDURE  getinfo 

DO  WHILE  . T. 

*  Obtain  values  for  remaining  fields  from  the  user. 

(2  6,  10  GET  ra  dptnamo 

(2  7,  10  GET  m_dptadd 

(2  b,  bl  GET  m  shipnarae 

(2  7,  51  GET  ra  shipadd 

(2  9,  22  GET  ra  reqnnbr  PICTURE  "  A  A999999999999  A” 

(2  9,  62  GET  ra_routid 

(2  14,  2  GET  ra  nsn 
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©  14,  20  GET  m_noun 

©  14,  43  GET  m  ui  PICTURE  "A A” 

0  14,  48  GET  ra_qtyship  PICTURE  "99999" 

©  14,  57  GET  ro_qty rcvd  PICTURE  ”99999” 

©  14,  64  GET  m_badqty  PICTURE  ”99999” 

©  14,  71  GET  munitcost  PICTURE  ”99999.99” 

©  18,  2  GET  m_tot lcost  PICTURE  "99999.99” 

©  18,  16  GET  ra  dcspcode  PICTURE  ”A9” 

©  18,  29  GET  m  actioned  PICTURE  ”9A" 

©  18,  37  GET  ni^duefoll  PICTURE  ”@D” 

©  18,  51  GET  m_last toll  PICTURE  ”©D" 

©  18,  69  GET  m_datecorop  PICTURE  ”@D” 

READ 

t  Display  data 
©  6,  10  SAY  m_dptname 

©  6,  51  SAY  m  shipname 

©  7,  10  SAY  ra_dptadd 

©  7,  51  SAY  mshipadd 

©  9,  22  SAY  ra_reqnnbr  PICTURE  ”  AA9999D9999999 A" 

©  9,  62  SAY  m_routid 

@  14,  2  SAY  ra_  risn 

©  14,  20  SAY  m_noun 

©  14,  43  SAY  m__u i 

©  14,  48  SAY  mjqtyship  PICTURE  ”99999" 

©  14,  57  SAY  ra_qtyrcvd  PICTURE  ”99999” 

©  14,  64  SAY  m_badqty  PICTURE  ”99999” 

©  14,  71  SAY  m_un itcost  PICTURE  ”99999.99” 

©  18,  2  SAY  m  tot  least.  PICTURE  "99999.99" 

©  18,  16  SAY  m__dcspcude 

©  18,  29  SAY  m_act ioned  PICTURE  "9A" 

©  18,  37  SAY  ni_duef  o  L 1  PICTURE  ”©D” 

©  18,  51  SAY  m  lastfol 1  PICTURE  ”©D” 

©  18,  69  SAY  m_dateoorap  PICTURE  ”©D” 

EXIT 

END  DO 

RE  TURN 


T  Procedure. . :  Screens  * 

*  Purpose. . . . :  Program  provides  a  data  entry  form  to  t 

f  allow  entry  of  data  that  could  not  be  entered  in  the  t 

*  orignal  screen.  t 


tm  r**  imuiymi'  tty  ft  ************* 

P  R OC E D U  H E  sere e n 2 

DO  VHII.E  .  T. 

©  1,  25  SAY  ” ROD  UPDATE  SCREEN  \ COMT I NUEP  > ” 

©  1,  7  0  SAY  DAIHO 

SAY  "Remarks” 

©  12,  in  SAY  "PREPARING  ORriCIAL” 
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@  13, 

2  SAY 

” Name/Rank/Of f  Sym 

<o  14, 

2  SAY 

"Duty  Title/Phone 

*  Initial ize 

var iables 

<o  4, 

2  SAY 

m  remarks! 

@  5, 

2  SAY 

m  remarks2 

@  6, 

2  SAY 

m  remarks3 

(0  7, 

2  SAY 

m  remarks4 

@  8, 

2  SAY 

m  remarks^ 

(?  9 , 

2  SAY 

m  remarks6 

(2  13, 

23  SAY 

m  name 

(2  14, 

23  SAY 

m  title 

*  Draw 

1  i  nes 

(2  2, 

0  TO  16,  79  DOUBLE 

<2  10, 

1  TO  10,  79 

*  Get 

info  from  user 

2  4 , 

2  GET 

m  remarksl 

2  5, 

2  GET 

ra  remarks2 

2  6, 

2  GET 

m  remarksl 

2  7, 

2  GET 

m  remarks4 

2  8, 

2  GET 

m  remarks^ 

2  9 , 

2  GET 

m  remarks6 

2  13, 

23  GET 

m  name 

2  14, 

23  GET 

m  title 

READ 

I  *  Display  data 

2  4, 

2  SAY 

m  remarksl 

2  5, 

2  SAY 

ra  remarks2 

2  6, 

2  SAY 

m  remarks3 

2  7, 

2  SAY 

m  remarks4 

2  8  , 

2  SAY 

m  remarks5 

2  9, 

2  SAY 

ra  reraarkso 

2  13, 

23  SAY 

ra  name 

2  14, 

23  SAY 

m  title 

EXIT 

END  DO 

RETURN 

3  *****************************************:*********'*•***  ****4, 

*  Procedure . . . 

:  D I SPLMSG  * 

*  Called  From. 

:  Several  procedures  * 

*  Purpose . 

:  To  disp Lay  the  contents  of  the  variable  * 

*  called  ” me 

ssage”  * 

1  *******************  t  *******.»********  t  **************  t  .*  t  *  *  »  *  * 

PROCEDURE  disp 

lrasg 

DO  clearmsg 

SET  COLOR  TO  R* 

2  19,  10  SAY  message 

60 

SET  COLOR  TO  V/B 

WAIT  SPACEOO)  +  "uress  any  key  to  continue.  . 

RETURN 

*  Procedure. . . :  CLEARMSG  * 

*  Called  From. :  Several  procedures  t 

*  Purpose . :  To  clear  any  message  that  is  present  on  * 

*  line  19  on  the  data  entry  screen.  * 

PROCEDURE  clear msg 

(?  19,  10  SAY  SPACE  (68) 

RETURN 


6  1 


*******  * ****************************************  *****  *  *  *  *  *  *  * * 


*  Program. . :  DELOPEN. PRO  * 

*  Author. . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/1989  * 

*  Note . :  Program  deletes  Report  of  Discrepancy  (ROD)  * 

*  files  from  the  active  file  and  transfers  the  files  to  * 

*  the  inactive  or  completed  file.  * 

-si/  J/  O/  ^  si/  *1/  si/  si/  sL/  si/  si/  si/  sL/  vi/  -i/  si/  si/  si/  si/  si/  si/  ^  si>  si/  s^  -X  si/  si/  s^  sL/  si/  si/  si/  si  si/  sX/  i/  'i  si.  si,  si/  si/  sX/  -i/  X  si.  ^  s^  -i/  si  si/  sX  si  si  X  i  si  si  si  i  i 

/^  /^s  *T'  ^  ^  *^s  /r  -ts  ^  ^  /^  ^  ^  -Ts  •T'  T*  /T'  ^  /fs  T1  'T'  /T*  •T'  -T*  y’v  'T'  -Ts  ^  /^*  ^  ^  /T1  /'T1*  ^  ^s  ^s  /^s  /js  /fs  /|S  ,fs  /^.  ^s  /t  /T*  ^  -T'  'T*  fs  'T'  i*  sT1 

*  Procedure. . :  INTERACT  * 

*  Purpose. . . . :  This  is  the  main  procedure  within  this  * 

*  procedure  file.  It  contains  the  overall  interaction  with  * 

*  the  user  in  adding  records  to  the  ROD  file.  * 

************************************************************* 
PROCEDURE  interact 


USE  rod  file  INDEX 


ref nbr 


*  Continuous 

*  program 
DO  WHILE  . T. 

CLEAR 


loop  until  user  enters  0  at  which  time  the 
exits  the  loop. 


0 

1, 

26 

SAY  "OPEN  ROD  DELETE  SCREEN’ 

0 

1, 

7  0 

SAY  DATEO 

0 

3, 

1 1 

SAY  "Report  Number  to  be  de 

0 

3, 

52 

SAY  ’’  (0  TO  EXIT)’’ 

(3 

5, 

2 

SAY  "Depot:” 

0 

5, 

42 

SAY  "Shipper" 

0 

6  , 

2 

SAY  "Name” 

0 

6, 

42 

SAY  "Name" 

0 

7, 

2 

SAY  "Address” 

0 

7, 

42 

SAY  ’’Address” 

0 

9, 

2 

SAY  ’’Requisition  Number” 

0 

9, 

42 

SAY  "Routing  Identifier" 

0 

11  , 

26 

SAY  "DISCREPANCY  DATA" 

0 

12, 

48 

SAY  ” Qt y” 

0 

1  2 , 

57 

SAY  ” Qty” 

0 

12, 

64 

SAY  "Disc” 

0 

12, 

71 

SAY  ’’Unit” 

0 

13, 

2 

SAY  "NSN/Part  Number  Nome 

0 

13, 

43 

SAY  "UI" 

0 

13, 

48 

SAY  ’’Shipped” 

0 

13, 

57 

SAY  ” Rcvd" 

0 

13, 

64 

SAY  ” Qty" 

0 

13, 

7  1 

SAY  "Cost” 

0 

16, 

2 

SAY  "Total” 

C(3 

16, 

12 

SAY  "Discrepancy” 

0 

16 , 

27 

SAY  "Action" 

0 

1  6  , 

37 

SAY  "Date  Due” 

(0 

16, 

51 

SAY  "Date  last" 

0 

16, 

7  0 

SAY  "Date" 

0 

17, 

2 

SAY  "Cost” 

(9  17,  15  S AY  ’’Code” 

@  17,  28  SAY  "Code” 

(9  17,  37  SAY  ’’Follow-up” 

(9  17,  51  SAY  "Follow-up” 

(9  17,  64  SAY  ’’Completed/Closed” 

*  Draw  lines  to  separate  Input  data. 

(9  2,  0  TO  20,  79  DOUBLE 

(9  4,  1  TO  4,  78  DOUBLE 

@10,  1  TO  10,  78  DOUBLE 

@  15,  1  TO  15,  78 

*  Initialize  memory  variables  for  user  inputs. 
STORE  0  TO  m  rptnbr 

STORE  SPACE (30)  TO  m_dptname 
STORE  SPACE (30)  TO  m_dptadd 
STORE  SPACE (28)  TO  m_shipnarae 
STORE  SPACE (28)  TO  m  shipadd 
STORE  SPACE (2)  TO  m  ui 
STORE  0  TO  m__qtyship 
STORE  0  TO  m  qtyrcvd 
STORE  0  TO  mbadqty 
STORE  SPACE (15)  TO  m  reqnnbr 
STORE  SPACE (3)  TO  mroutid 
STORE  SPACE (15)  TO  m  nsn 
STORE  SPACE (20)  TO  ra_nou 
STORE  0.00  TO  m  unltcost 
STORE  0.00  TO  ra_totlcost 
STORE  SPACE (2)  TO  m_dcspcode 
STORE  SPACE (8)  TO  mduefoll 
STORE  SPACE (8)  TO  m  lastfoll 
STORE  SPACE (2)  TO  m^actiancd 
STORE  SPACE (8)  TO  m_datecomp 
STORE  SPACE (76)  TO  ra_remarksl 
STORE  SPACE (76)  TO  m  remarks2 
STORE  SPACE  (76 >  TO  m  "remarks3 
STORE  SPACE (76)  TO  ra^remarks4 
STORE  SPACE (76)  TO  m  remar ks5 
STORE  SPACE (76)  TO  m_remarks6 
STORE  SPACE (50)  TO  m  name 
STORE  SPACE (50 )  TO  m  title 


* 

IJee 

initial 

.iz 

id  variables  To  clear  the 

(9 

3, 

41 

SAY 

rptnbr  PICTURE  "99999999" 

(9 

6 , 

10 

SAY 

dpt  name 

<9 

6  , 

51 

SAY 

m 

sh i pname 

(9 

v, 

10 

SAY 

ra 

dptadd 

(!) 

7, 

5  l 

SAY 

m 

sh i padd 

(0 

9, 

22 

SAY 

m 

reqnnbr 

<D 

9, 

62 

SAY 

m 

r  o  u  t  i  d 

<9 

1  4  , 

2 

SAY 

m 

nsn 

(9 

14  , 

20 

SAY 

m 

noun 
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©  14,  43  SAY  m_ui 

©  14,  48  SAY  m_qtyship 

©  14,  57  SAY  mqtyrcvd 

©  14,  64  SAY  m_badqty 

@  14,  71  SAY  ro_unitcost  PICTURE  ”99999.99” 

©  18,  2  SAY  m_tot least  PICTURE  ”99999.99” 

©  18,  16  SAY  m_dcspcode 

©  18,  29  SAY  m_actioncd 

©  18,  37  SAY  m_duef all  PICTURE  ”©D” 

©  18,  51  SAY  m_lastfoll  PICTURE  ”©D” 

©  18,  69  SAY  ra_datecomp  PICTURE  ”©D” 

*  Get  report  number  from  the  user. 

DO  getrpt 

*  If  report  number  =  0,  exit  loop 
IF  mrptnbr  =  0 

EXIT 
END  I F 

DO  showrest 

*  Prompt  user  to  decide  whether  to  update  database. 
SET  COLOR  TO  R+ 

WAIT  "Delete  ROD  file?  <Y  or  N)”  TO  userresp 
SET  COLOR  TO  W/B 
IF  UPPER  I user resp)  #  ” Y" 

CLEAR 
END  IF 

*  If  the  user  input  ” Y” ,  then  update  database. 

IF  UPPER (userresp)  =  ” Y" 

DO  drecord 
IF  m_rptnbr  =  0 
EXIT 
END  IF 
DELETE 
PACK 

message  =  "Record  DELETED  from  database” 

ELSE 

message  =  "Record  NOT  DELETED  from  open  file” 
END  I  * 

*  Clear  and  display  message. 

CLEAR 

DO  displmsg 
DO  cloarmsg 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 

04 


¥  Procedure . . . :  GETRPT  * 

¥  Called  From. :  INTERACT  * 

¥  Purpose . :  Obtain  and  validate  the  report  number  from  * 

¥  the  user.  ¥ 


PROCEDURE  getrpt 


DO  WHILE  . T. 

¥  Obtain  a  reference  number  from  the  user  and  display. 
(9  3,  41  GET  m  rptnbr  PICTURE  "99999999” 

READ 

(9  3,  41  SAY  m  rp+nbr  PICTURE  ”99909999" 


¥  If  report  number  =  0,  exit  from  loop.  If  not  0,  then 
¥  attempt  to  find  the  reference  number.  If  found, 

¥  display  message  and  exit  the  loop. 

IF  m_rptnbr  =  0 
EXIT 
ELSE 

SEEK  m_rptnbr 
IF  FOUND  <) 

m_dptname  =  rod_f i le- >depotname 
m_shipname  =  rod_f i le->ship_name 
m_dptadd  =  rod_f i le->depot_add 
m_shipadd  =  rod_f i le- >ship_add 
ra_routid  =  rod__f  i  le->routing_  id 
:n_reqnnbr  =  rod_f  i  Le->req_number 
m_nsn  =  rod_f ile->nsn  or_pn 
m  noun  =  rod_f i le-> noun 
m_ui  =  rod_file->ui 
m_qtyship  =  rod_f i le- >qt y _sh ip 
ra_qtyrcvd  =  rod_f i le- >qty_rcvd 
m  badqty  =  rodf i le->bad_qty 
raunitcost  =  rod_f i le->unit_cost 
m_totlcost  =  rod_f i le-> tota 1  cost 
ra_dcspcode  =  rod_f ile->dscp_code 
m_duefoll  =  rnd_f i le- >due_f a  1 1  up 
ra_lastfoll  -  rod_f i le- > last_I ol 1 
maotloncd  =  rod_f i le- >act ioncode 
m  datecomp  =  rod_f i le->date_corap 
m_remarksl  =  rod_f i le->remarksl 
m_remarks2  =  rod_f i le->reraarks2 
ra_reroarks3  =  rod_f i le- > remar ks3 
ra_remarks4  =  rod_f i le->remarks4 
m_remarks5  =  rod f i le->remarksb 
mremarksb  =  rod f i le->remar ks6 
mnarae  =  rod  flle->narae  rank 
m  title  =  rod  f i le- >duty  title 
EXIT 
ELSE 

message  =  "REPORT  NUMBER  DOES  NOT  EXIST  WITHIN  DATABASE" 
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DO  displmsg 
DO  clearmsg 

@20,  0  TO  20,  79  DOUBLE 

END  IF 
END  IF 

ENDDO 

RETURN 

*************************************** ************** ******** 

*  Procedure. . , :  SHOVREST  * 

*  Purpose . :  Displays  data  contain  in  database  fields.  * 

************************************************************* 
PROCEDURE  showrest 


*  Display  data 


C2 

6. 

10 

SAY 

m  dptnarae 

(2 

6, 

51 

SAY 

m  shipname 

<2 

7, 

10 

SAY 

m  dptadd 

<2 

7, 

51 

SAY 

mshi padd 

(2 

9, 

22 

SAY 

m  reqnnbr 

<2 

9, 

62 

SAY 

in  routid 

(2 

14, 

2 

SAY 

m_nsn 

(2 

14, 

20 

SAY 

m  noun 

(2 

14, 

43 

SAY 

m_ui 

(2 

14, 

48 

SAY 

■na_qtyship  PICTURE  1 

"99999” 

(2 

14, 

57 

SAY 

m  qtyrcvd  PICTURE 

”99999" 

(2 

14, 

64 

SAY 

m_badqty  PICTURE  "' 

99999" 

(2 

14, 

71 

SAY 

ra^unitcost  PICTURE 

”99999 

(2 

18, 

2 

SAY 

m_tot Icost  PICTURE 

"99999 

(2 

18, 

16 

SAY 

m  dcspcode 

(2 

18, 

29 

SAY 

m  actioned 

(2 

18, 

37 

SAY 

m  duefoll  PICTURE 

"  (2D” 

(2 

18, 

51 

SAY 

m  last f o 1 1  PICTURE 

"  (2D" 

(2 

18, 

69 

SAY 

ra_datecomp  PICTURE 

"  (2D" 

RETURN 

************************************************************* 


*  Procedure. . . :  DRECORD  * 

*  Called  From. :  interact  * 

*  Purpose . :  Transfers  records  to  inactive  database  prior* 

*  to  record  being  deleted  from  active  or  open  database  * 

*  f  i  1  e .  * 


************************************************************* 
PROCEDURE  drecord 

USE  i nact i ve 

*  Clear  and  draw  input  screen 
CLEAR 

<2  2,  27  SAY  "ROD  DELETE  SCREEN" 

(2  4,  15  TO  8,  60  DOUBLE 
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@  6,  17  SAY  ’’Reference  number  to  be  deleted:” 

@  6,  49  SAY  m_rptnbr  PICTURE  ”99999999” 

SET  COLOR  TO  R+ 

@18,  1  SAY  SPACE  < 1 ) 

WAIT  ’’ARE  YOU  SURE?  (Y  or  N>”  TO  delchk 
SET  COLOR  TO  V/B 
IF  UPPER (delchk )  #  ” Y” 

CLEAR 

m_rptnbr  =  0 
EXIT 
END  IF 

IF  UPPER (delchk)  =  ”Y” 

*  Transfer  record  to  inactive  file 
APPEND  FROM  rod_file  FOR  RPT_NUMBER  =  m_rptnbr 
END  IF 

*  Reopen  active  database  file. 

USE  rod_file  INDEX  i_refnbr 

RETURN 

************************************************************* 


*  Procedure. . . :  DISPLMSG  * 
X  Called  From. :  Several  procedures  * 
X  Purpose . :  To  display  the  contents  of  the  variable  * 

*  called  "message".  x 


************************************************************* 
PROCEDURE  displmsg 

DO  clearmsg 
SET  COLOR  TO  R+ 

@19,  10  SAY  message 

SET  COLOR  TO  V/B 

WAIT  SPACE(IO)  +  "Press  any  key  to  continue, . . " 

RETURN 

************************************************************* 

*  Procedure. . . •  CLEARMSG  * 

X  Called  From.  :  Several  procedures  *: 

X  Purpose :  To  clear  any  message  that  is  present  on  line* 

*  19  on  the  data  entry  screen.  * 

************************************************************* 
PROCEDURE  clearmsg 

@19,  10  SAY  SPACE f 68) 

RETURN 
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************************************************************* 


*  Program..:  DELCLOSE. PRG  * 

*  Author. . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/1989  * 

*  Note . :  Program  deletes  Report  of  Discrepancy  (ROD)  * 


*  files  from  the  CLOSED  file.  * 

************************************************************* 
************************************************************* 

*  Procedure. . :  INTERACT  * 

*  Purpose. . . . :  This  is  the  main  procedure  within  this  * 

*  procedure  file.  It  contains  the  overall  interaction  * 

*  with  the  user  in  adding  records  to  the  ROD  file.  * 

************************************************************* 
PROCEDURE  interact 


USE  inactive  INDEX  i  delnbr 


*  Continuous 

*  program 


DO  WHILE 
CLEAR 

.  T 

<9 

1, 

25 

(9 

1, 

70 

(9 

3, 

11 

<9 

3, 

52 

<3 

5, 

2 

(9 

5, 

42 

(9 

6, 

2 

(9 

6 , 

42 

<3 

7, 

2 

(9 

7, 

42 

(9 

9, 

2 

(9 

9, 

42 

<9 

11, 

26 

(9 

12, 

48 

<3 

12, 

57 

(9 

12, 

64 

C9 

12, 

71 

<3 

13, 

2 

(9 

13, 

43 

@ 

13, 

48 

(9 

13, 

57 

(9 

13, 

64 

(9 

13, 

71 

(9 

16, 

2 

(9 

16 , 

12 

(9 

16, 

27 

(9 

16, 

37 

(9 

16, 

51 

(9 

16, 

70 

(9 

17, 

2 

(9 

17, 

15 

loop  until  user  enters  0  at  which 
exits  the  loop. 


SAY  ■'CLOSED  ROD  DELETE  SCREEN” 

SAY  DATEO 

SAY  "Report  Number  to  be  deleted:” 
SAY  ” <0  TO  EXIT)” 

SAY  ” Depot : " 

SAY  "Shipper" 

SAY  "Name” 

SAY  "Name” 

SAY  "Address” 

SAY  "Address” 

SAY  "Requisition  Number" 

SAY  "Routing  Identifier" 

SAY  "DISCREPANCY  DATA" 

SAY  "Qty" 

SAY  "Qty" 

SAY  "Disc" 

SAY  "Unit" 

SAY  "NSN/Part  Number  Nomenclature 
SAY  "UI" 

SAY  "Shipped" 

SAY  ” Rcvd" 

SaY  ” mty" 

SAY  "Cost" 

SAY  "Total" 

SAY  "Discrepancy" 

SAY  "Action" 

SAY  "Date  Due” 

SAY  "Date  Last" 

SAY  "Date" 

SAY  "Cost" 

SAY  "Code" 


t  i  me 


» » 


the 
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@17,  28  SAY  ’’Code” 

@  17,  37  SAY  ’’Follow-up” 

@  17,  51  SAY  ’’Follow-up” 

@  17,  64  SAY  ” Comp let ed/C losed” 

*  Draw  lines  to  separate  input  data. 

@  2,  0  TO  20,  79  DOUBLE 

@  4,  1  TO  4,  78  DOUBLE 

@  10,  1  TO  10,  78  DOUBLE 

@  15,  1  TO  15,  78 

*  Initialize  memory  variables  for  user  inputs. 
STORE  0  TO  m_rptnbr 

STORE  SPACE (30)  TO  m_ dpt name 
STORE  SPACE (30)  TO  m_dptadd 
STORE  SPACE (28)  TO  m_shipname 
STORE  SPACE (28)  TO  m_shipadd 
STORE  SPACE (2)  TO  m_ui 
STORE  0  TO  m_qtyship 
STORE  0  TO  m_qtyrcvd 
STORE  0  TO  m_badqty 
STORE  SPACE (15)  TO  mreqnnbr 
STORE  SPACE (3)  TO  mroutid 
STORE  SPACE (15)  TO  m_nsn 
STORE  SPACE (20)  TO  m_noun 
STORE  0.00  TO  rauni toast 
STORE  0.00  TO  m  totlcost 
STORE  SPACE (2)  TO  mdcspcode 
STORE  SPACE (8)  TO  mduefoll 
STORE  SPACE (8 )  TO  mlastfoll 
STORE  SPACE (2)  TO  mactioncd 
STORE  SPACE (8)  TO  m_datecomp 
STORE  SPACE (76)  TO  m_reraarksl 
STORE  SPACE (76)  TO  m_remarks2 
STORE  SPACE (76)  TO  ra_reraarks3 
STORE  SPACE(76)  TO  m_remarks4 
STORE  SPACE (76)  TO  m_remarks5 
STORE  SPACE (76)  TO  m_reraarks6 
STORE  SPACE (50)  TO  m_name 
STORE  SPACE (50 )  TO  m_title 

*  USE  initialized  variables  To  clear  the  screen. 

@  3,  41  SAY  m_rptnbr  PICTURE  ”99999999” 

@  6,  10  SAY  m_dptnarae 

@  6,  51  SAY  mshipname 

@  7,  10  SAY  mdptadd 

@  7,  51  SAY  ra  sh  1 padd 

@  9,  22  SAY  m_reqnnbr 

@  9,  62  SAY  m_rautid 

@14,  2  SAY  m_  nsn 

@  14,  20  SAY  m_noun 

@  14,  43  SAY  m_u 1 
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@  14,  48  SAY  m_qtyship 

@  14,  57  SAY  ra_qtyrcvd 

@  14,  64  SAY  ra_badqty 

(2  14,  71  SAY  m_unitcost  PICTURE  "99999.99” 

@18,  2  SAY  m_tot least  PICTURE  "99999.99” 

@18,  16  SAY  m_dcspcade 

@  18,  29  SAY  m_actioncd 

@  18,  37  SAY  m_duef  o 1 1  PICTURE  "@D” 

@  18,  51  SAY  ra_last  f  all  P  TCTURE  ”@D” 

@  18,  69  SAY  m_datecomp  PICTURE  "@D” 

t  Get  report  number  from  the  user. 

DO  getrpt 

*  If  report  number  =  0,  exit  loop 
IF  m_rptnbr  =  0 

EXIT 
END  I  F 

DO  shawrest 

*  Prompt  user  to  decide  whether  to  update  database. 
SET  COLOR  TO  R+ 

WAIT  "Delete  ROD  file?  (Y  or  N>”  TO  userresp 
SET  COLOR  TO  V/B 
IF  UPPER (userresp)  #  " Y” 

CLEAR 
END  I  F 

*  If  the  user  input  " Y” ,  then  update  database. 

IF  UPPER (userresp)  =  "Y" 

DO  drecord 
IF  ra_rptnbr  =  0 
EXIT 
END  IF 

message  =  "Record  DELETED  from  database” 

ELSE 

message  =  "Record  NOT  DELETED  from  open  file" 

END  IF 

*  Clear  and  display  message 
CLEAR 

DO  displrasg 
DO  clearmsg 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 
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'  ^  ^  S^/  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  S^  >|f  ^  ^  ^  N^/  S^  v^  ^  ^  ^  ^  ^  v^  ^  ^  ^  ^  ^  V^>  ^  ^  ^  ^  ^  ^  ^/  ^  ^  '^/ 


*  Procedure.  .  .  :  GETRPT  * 

*  Called  From. :  INTERACT  * 

*  Purpose . :  Obtain  and  validate  the  report  number  from  * 

*  the  user.  * 


******************************}****************************** 
PROCEDURE  getrpt 

DO  WHILE  . T . 

*  Obtain  a  reference  number  from  the  user  and  display. 

@  3,  41  GET  m_rptnbr  PICTURE  ’•99999999" 

READ 

0  3,  41  SAY  m_rptnbr  PICTURE  "99999999” 


exit  from  loop, 
reference  number, 
exit  the  loop. 


*  If  report  number  =  0, 

*  attempt  to  find  the 

*  display  message  and 

IF  mrptnbr  =  0 

EXIT 

ELSE 

SEE1'  m_rptnbr 

I F  FOUND  ( ) 

m  dptname  =  inact i ve- >depotname 
m_shipname  =  inact i ve->sh i p  name 
m_dptadd  =  inact ive->depot  add 
m_shipadd  =  i nact ive- > shi p_add 
m_routid  =  i nact i ve- > rout  1 ng  id 
m_reqnnbr  =  i nact ive- > req  number 
m_nsn  =  inact ive->nsn  or  pn 
mnoun  =  inact ive->noun 
m_ui  =  inactive->ui 
ra_qtyship  =  inactive->qty_shlp 
m_qtyrcvd  =  inact ive->qty_rcvd 
i nact i ve- >  bad_qty 
=  inact ive- > unit _cost 
=  i nact ive- > tota 1 _cost 
=  i nact ive- > dscp  code 
ra  duefoll  ~  inact1  .ve->due_f ol lup 


If  not  0,  then 
1 1  found, 


ra_badqi.y  = 
rajjnitcost 
ra^tot Icost 
mdcspcode 


inacti ve->last  f o1 1 
inact ive- > act i one ode 
i nact l ve- >  date_comp 
inact i ve-> re marks 1 
inacHve-)  remarks2 
i nact ive->remar ks3 
i nact ive- >remarks4 
i nact i ve->reraarks5 
i nact tve->remarksb 
ra_narae  =  i nact i ve- > name  rank 
m_title  =  1 nact i ve- >duty _t J t 1 e 

EXIT 
ELSE 

message  =  "REPORT  NUMBER  DOES  NOT  EXIST 


ra_last  foil 
m  act ioned 
m_datecomp 
m_reraarks 1 
m_remarks2 
ra_reraarks3 
m_reraarks4 
ra_remar  ks5 
m  remarksb 


WITHIN  DATABASE" 
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DO  displmsg 
DO  clearmsg 

<9  20,  0  TO  20,  79  DOUBLE 

END  IF 
END  IF 
ENDDO 
RETURN 

************************************************************* 

*  Procedure. . . :  SHOVREST  * 

*  Purpose . :  Displays  data  contain  in  database  fields.  * 

************************************************************* 
PROCEDURE  showrest 

*  Display  data. 

<9  6,  10  SAY  m_dptname 

(9  6,  51  SAY  mshipname 

<9  7,  10  SAY  m_dptadd 

(9  7,  51  SAY  mshipadd 

<3  9,  22  SAY  m_reqnnbr 

<9  9,  62  SAY  m  rout  id 

@14,  2  SAY  mnsn 

<9  i4,  20  SAY  m  noun 

<9  14,  43  SAY  ra_ui 

(9  14,  48  SAY  m_qtyship  PICTURE  ”99999" 

(9  14,  57  SAY  m_qtvrcvd  PICTURE  ”99999” 

(9  14,  64  SAY  ra_badqty  PICTURE  ”99999” 

(9  14,  71  SAY  mynitcost  PICTURE  ”99999.99” 

<9  lo,  2  SAY  m^tot  least  PICTURE  ”99999.99” 

(9  18,  16  SAY  m_dcspcode 

<9  18,  29  SAY  m^actioncd 

(9  18,  37  SAY  xn_duef oil  PICTURE  ”(9D” 

<9  18,  51  SAY  m_lastf o  1 1  PICTURE  ”(9D” 

<9  18,  69  SAY  m  datecorap  PICTURE  ”(9D” 

RETURN 

************************************************************* 


*  Procedure. . . :  DRECORD  * 

t  Called  From. :  interact  * 

*  Purpose . :  Verifies  user’s  choice  of  reference  number  fc 


*  to  be  deleted  from  CLOSED  database.  * 
************************************************************* 
PROCEDURE  arecord 


*  Clear  and  draw  input  screen. 


CLEAR 

cp 

2, 

27 

SAY  ” 

ROD  DELETE  SCREEN” 

(9 

4, 

15 

TO  8, 

60  DOUBLE 

'9 

b , 

17 

SAY  ” 

Reference  number  to  be  deleted 

(9 

b, 

.*  1 

SAY  m  rptnbr  PICTURE  ”99999999” 

SET  COLOR  TO  Rt 


@18,  1  SAY  SPACE ( 1 ) 

WAIT  "ARE  YOU  SURE?  <Y  or  N>"  TO  de Ichk 
SET  COLOR  TO  V/B 
IF  UPPER 'de lchk)  #  "Y” 

CLEAR 

mrptnbr  =  0 
EXIT 

end:  f 

IF  UPPER (delchk)  =  "Y" 

DELETE 
PACK 
END  I  F 

RETURN 

************  ********************************  *******  ********** 


*  Procedure. .  :  DISPLMSG  * 

*  Called  From. :  Several  procedures  * 

*  Purpose . :  To  display  the  contents  of  the  variable  * 


*  called  "message”.  * 

**************************************************** ********.* 
PROCEDURE  dlsplmsg 

DO  clearmsg 
SET  COLOR  TO  R+ 

<9  19,  10  SAY  message 

SET  COLOR  TO  W/B 

VA I T  SPACE(IO)  +  "Press  any  key  to  continue. . ." 

RETURN 

**********************************************  ***********  4.  *  t  * 


*  Procedure. . . :  CLEARMSG  * 

*  Called  From. :  Several  procedures  * 

*  Purpose . :  To  clear  any  message  that  is  present  on  line* 


*  19  on  the  data  entry  screen.  * 

********************.*************:**  ***********  **  ************  * 
PROCEDURE  clearmsg 

(0  19,  10  SAY  SPACE  Ooti) 

RETURN 


*******************************************************  ****** 

*  Program.  .  :  RPTMENU.PRG  * 

*  Author. . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/1989  * 

*  Note . :  This  program  produces  a  menu  that  provides  the  * 

*  user  the  option  of  producing  up  to  five  reports.  If  the* 

*  user  selects  the  number  0,  the  system  returns  to  the  * 

*  options  menu.  * 

************************************************************* 
CLEAR 

*  Loop  as  long  as  user  desires  another  action. 

DO  WHILE  . T. 

*  Display  customer  menu  upon  screen. 

CLEAR’ 

0  5,  26  SAY  ’’ REPORT  OPTIONS  MENU” 

©  9,  22  SAY  ”1.  Open  RODs  by  Report  Number” 

©  10,  22  SAY  ”2.  Open  RODs  by  Requisition  Number” 

©  11,  22  SAY  ”3.  Open  RODs  by  Date  Due  Follow-up” 

<2  12,  22  SAY  ”4.  Closed/Completed  RODs” 

©  13,  22  SAY  ”5.  Total  Records  and  Dollar  Value” 

©  15,  22  SAY  ”0.  EXIT” 

©  17,  26  SAY  "Select" 

*  Put  double  line  around  menu  and  use  double  line  to 

*  separate  title  from  menu  chrice. 

©  4,0  TO  18,79  DOUBLE 

©  6,1  TO  6,78  DOUBLE 

*  Initialize  selectnura  to  0.  Prompt  user  for  choice, 
selectnum  =  0 

©  17,  34  GET  selectnura  PICTURE  ”9”  RANGE  0,5 

READ 

©  17,  34  SAY  selectnum 

CLEAR 

*  Take  appropriate  action  based  on  value  of  selectnum. 

IF  selectnum  =  0 

EXIT 
END  IF 

IF  selectnura  =  1 

*  List  open  RODs. 

©  19,  10  SAY  "Loading  program,  please  waft” 

DO  1 1st rod 
END  I  F 

IF  selectnum  =  2 

*  List  open  RODs  by  requisition  number. 

©  19,  10  SAY  "Loading  program,  please  wait" 

DO  reqnseq 
END  I  F 

7  4 


IF  selectnum  =  3 

*  List  open  RODs  by  date  due  follow-up. 

(0  19,  10  SAY  ’’Loading  program,  please  wait” 

DO  pastsus 
END  IF 

IF  selectnum  =  4 

*  List  close/completed  RODs. 

@  19,  10  SAY  "Loading  program,  please  wait” 

DO  comprod 
ENDIF 

IF  selectnum  =  5 

X  Compute  total  number  of  records  and  dollar 
@  19,  10  SAY  "Loading  program,  please  wait” 

DO  totals 
END  I  F 
ENDDO 
RETURN 


va 1 ue . 
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************************************************;* ;************ 

*  Program. . :  PRINTROD. PRG  * 

*  Author. . . :  Capt  James  L.  Johnson  + 

*  Date . :  6/30/1989  * 

*  Note . :  Program  prints  a  copy  of  the  ROD  after  the  user* 

*  specifies  the  report  number.  * 

************************************************************* 
************************************************************* 

*  Procedure. . :  INTERACT  * 

*  Purpose. . . . :  This  is  the  main  procedure  within  this  * 

*  procedure  file.  It  contains  the  overall  interaction  * 

*  with  the  user  in  adding  records  to  the  ROD  file.  * 

^  ^  ^  ^  ^  'X  ^  ^  -‘X-  X.  ^  vX-  X*  X  'X*  ■X'  >X  w  vX*  >X  >X  <X  «X  ■X  >X  X  X  X*  x  -X-  X  X  -X  X  X  X  X  X  X  X  X  X  X  X  X  X  x  x  X  >x.  X  x  X  x  x  X  X 

T’  *  ***  ^  ^  '  p»  ^  'T*  ^  ^  'n  ''p  ^  'p  *p  •■p  ^p  'p  'p  *p  **  *p  *p  -p  ^  *p  ^  ^  ^  ^  ^  ^  ^  .p  ^p  ^  ^  >p  -p  ^  p.  p.  p.  P  p  -T-  *p  p  •  p>  -T- 

PROCEDURE  interact 

*  Open  database  file. 

USE  rod  file  INDEX  i  refnbr 


*  Continuous  loop  until  user  enters 

*  program  exits  the  loop. 

DO  VHILE  .T. 

CLEAR 


wh i c h  time 


0 

1, 

28 

SAY  "ROD  PRINT  SCREEN" 

0 

1, 

70 

SAY  DATEO 

0 

3, 

26 

SAY  ’’Report  Number:  " 

0 

3, 

52 

SAY  ” <0  TO  EXIT)” 

0 

R 

w  , 

2 

SAY  " Depot : ” 

0 

5, 

42 

SAY  "Shipper” 

0 

6, 

2 

SAZ  "Name” 

0 

6  , 

42 

SAY  "Name" 

0 

7, 

2 

SAY  "Address" 

0 

7, 

42 

SAY  "Address” 

(3 

9, 

2 

SAY  "Requisition  Number" 

(3 

9, 

42 

SAY  "Routing  Identifier” 

<3 

11, 

26 

SAY  -DISCREPANCY  DATA" 

(3 

12, 

48 

SAY  "Qty" 

(3 

12, 

57 

SAY  ” Qty" 

(0 

12, 

64 

SAY  "Disc” 

0 

12, 

71 

SAY  "Unit" 

0 

13, 

2 

SAY  "NSN/Part  Number  N 

0 

13, 

43 

SAY  -UI” 

(3 

13, 

48 

SAY  "Shipped” 

0 

13, 

57 

SAY  " Rcvd” 

0 

13, 

64 

SAY  "Qty" 

0 

13, 

71 

SAY  "Cost" 

<3 

lb, 

2 

SAY  "Total" 

0 

16  , 

12 

SAY  "Discrepancy” 

0 

It) , 

27 

SAY  "Action" 

0 

16, 

37 

SAY  "Date  Due” 

0 

lb, 

51 

SAY  "Date  Last” 

0 

16  , 

70 

SAY  "Date" 

0 

1 7  , 

2 

SAY  "Cost" 
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@17,  15  SAY  ’•Code” 

@  17,  28  SAY  "Code" 

@  17,  37  SAY  "Follow-up” 

@  17,  51  SAY  "Follow-up" 

@  17,  64  SAY  "Completed/Closed” 

*  Draw  lines  to  separate  input  data. 

0  2,  0  TO  20,  79  DOUBLE 

@  4,  1  TO  4,  78  DOUBLE 

@10,  1  TO  10,  78  DOUBLE 

@15,  1  TO  15,  78 

*  Initialize  memory  variables  for  user  inputs. 
STORE  0  TO  m_rptnbr 

STORE  SPACE (SO)  TO  m_dptname 
STORE  SPACE (30)  TO  dptadd 
STORE  SPACE (28)  TO  ro_  sh  1  pnarae 
STORE  SPACE (28)  TO  m_shipadd 
STORE  SPACE (2)  TO  m  ui 
STORE  0  TO  ra_qtyship 
STORE  0  TO  m_qtyrcvd 
STORE  0  TO  ni  badqty 
STORE  SPACE (15)  TO  m  reqnnbr 
STORE  SPACE (3)  TO  m  rout  id 
STORE  SPACE (15)  TO  m_nsn 
STORE  SPACE (20)  TO  ra  noun 
STORE  0.00  TO  m_unitcost 
STORE  0.00  TO  ra_tot least 
STORE  SPACE (2)  TO  ra_dcspcode 
STORE  SPACE (3)  TO  m_duefoll 
STORE  SPACE (8 )  TO  ra_lastfoll 
S^ORE  SPACE <2)  TO  m_actioncd 
STORE  SPACE (8)  TO  mdatecomp 
STORE  SPACE (76)  TO  raremar ks 1 
STORE  SPACE (76)  TO  m_remarks2 
STORE  SPACE (76)  TO  ra  remarks3 
STORE  SPACE (76)  TO  ra~remarks4 
STORE  SPACE(76)  TO  ra_remarks5 
STORE  SPACE (76)  TO  m  remarked 
STORE  SPAGE(50)  TO  mname 
STORE  SPACE < 50)  TO  rat i tie 

*  Use  initialized  variables  To  clear  the  screen. 

@  3,  41  SAY  mrptnbr  PICTURE  "99999999" 

@6,  10  SAY  mdptname 

@  6,  51  SAY  ra_shipnarae 

@  7,  10  SAY  ra_dpt;add 

@  7,  51  SAY  m_shi padd 

@  9,  22  SAY  m_ reqnnbr 

@  9,  62  SAY  ra_rout Id 

@  14 ,  2  SAY  ra  _nsn 

@  14,  20  SAY  m  noun 
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<9  14,  43  SAY  m_ui 

<9  14,  48  SAY  m_qtyship 

(9  14,  57  SAY  m_qtyrcvd 

(9  14,  64  SAY  m_badqty 

(9  14,  71  SAY  m_un i tcost  PICTURE  ”99999.99” 

9  18,  2  SAY  m_tot lcost  PICTURE  ”99999.99” 

9  18,  16  SAY  m_dcspcode 

9  18,  29  SAY  m  actioned 

9  18,  37  SAY  nTduefoll  PICTURE  ”9D” 

9  18,  51  SAY  m_lastfol 1  PICTURE  ”9D” 

9  18,  69  SAY  m  datecomp  PICTURE  ”9D" 

*  Get  report  number  from  the  user. 

DO  getrpt 

*  If  report  number  =  0,  exit  loop 
IF  m_rptnbr  =  0 

EXIT 
END  IF 

*  Display  information  on  screen. 

DO  showinfo 

*  Prompt  user  to  decide  whether  to  update  database. 

SET  COLOR  TO  R+ 

WAIT  "Print  copy  of  ROD?  (Y  or  N>”  TO  userresp 
SET  COLOR  TO  W/B 
IF  UPPER ( userresp )  #  "Y" 

EXIT 
END  I  F 

*  If  the  user  input  "Y",  then  print  ROD. 

IF  UPPER (userresp)  =  ” Y” 

DO  prntrod 
END  I  F 
ENDDO 

CLEAR 

CLOSE  DATABASES 
RETURN 

************************************************************* 


*  Procedure. . . :  GETRPT  * 

*  Called  From. :  INTERACT  * 

*  Purpose . :  Obtain  and  validate  the  report  number  from  * 

*  the  user.  * 


********************** ********************************* ****** 
PROCEDURE  getrpt 

DO  WHILE  . T. 

*  Obtain  a  reference  number  from  the  user  and  display. 

9  3,  41  GET  m  rptnbr  PICTURE  ”99999999" 


READ 

<o  3,  41  SAY  m_rptnbr  PICTURE  ”99999999” 

*  If  report  number  =  0,  exit  from  loop.  If  not  0,  then 

*  attempt  to  find  the  reference  number.  If  found, 

*  display  message  and  exit  the  loop. 

IF  m_rptnbr  =  0 

EXIT 

ELSE 

SEEK  m_rptnbr 

IF  FOUND  C) 

mdptname  =  rod_f i le->depotname 
m_shipname  =  rod_f i le- >shi p_name 
m  dptadd  =  rod_f i le->depot_add 
m_shipadd  =  rod_f i le->ship_add 
m_routid  =  rod_f i le- > rout i ng_id 
m_reqnnbr  =  rod_f i le-> req_number 
mns n  =  rodf ile->nsn_or  pn 
mnoun  =  rod_f i le- > noun 
m__ui  =  rod_file->ui 
ra_qtyship  =  rod_f i le->qty_ship 
mqtyrcvd  =  rod_f i le->qty_rcvd 
mbadqty  -  rod_f i le- > bad_qty 
m_unitcost  =  rod_f i le->unit_cost 
ratotlcost  =  rod_f i le- > tota 1 _ cost 
m_dcspcode  s  rod  f  i  le- >  dscp_code 
mduefoll  =  rod_f i le->due_f ol lup 
ra_lastfoll  =  rod_f i le- > last_f ol 1 
m  actioned  =  rod  f  1  le- > act i oncode 
mdatecomp  =  rod_f i le->date_corap 
m_remarksl  -  rod_f i le- > remarks 1 
m  remar ks2  =  rod_f i le- > remarks2 
ra_remarks3  =  rod _f i le-> remar ks3 
m_reraarks4  =  rod_f  i  le->remarks4 
ra  remarksS  =  rod_f i le- > remar ks5 
m  remarksb  =  rod_i i le- >remarks6 
m  name  =  rod_f ile->narae_rank 
ratitle  =  rod _f i \e->duty_t it le 
EXIT 
ELSE 

message  =  "REPORT  NUMBER  DOES  NOT  EXIST  WITHIN  DATABASE” 
DO  dispimsg 
DO  clearmsg 

@20,  0  TO  20,  79  DOUBLE 

END  I  F 

END  IF 
ENDDO 

RETURN 
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************************************************************* 


*  Procedure,  .  .  .  :  GET  INFO  * 

*  Called  From. . :  INTERACT  * 

*  Purpose . :  To  obtain  and  verify  all  other  fields  other* 


*  than  the  key  field,  * 

PROCEDURE  showinfo 

*  Display  data 


© 

6, 

10 

SAY 

m_dptname 

© 

6, 

51 

SAY 

m  shipname 

© 

7, 

10 

SAY 

m_dptadd 

© 

7, 

51 

SAY 

m_shipadd 

© 

9, 

22 

SAY 

m  reqnnbr  PICTURE  ” AA999999999999A” 

© 

9, 

62 

SAY 

m  routid 

© 

14, 

2 

SAY 

m  nsn 

© 

14, 

20 

SAY 

m_noun 

© 

14, 

43 

SAY 

m  ui 

© 

14, 

48 

SAY 

m  qtyship  PICTURE  ”99999” 

© 

14, 

57 

SAY 

m  qtyrcvd  PICTURE  ”99999” 

© 

14, 

64 

SAY 

mbadqty  PICTURE  "99999” 

© 

14, 

71 

SAY 

m  unitcost  PICTURE  ”99999.99” 

© 

18, 

2 

SAY 

m_tot least  PICTURE  ”99999.99” 

© 

18, 

16 

SAY 

m  despeode 

© 

18, 

29 

SAY 

m  actioned  PICTURE  ”9A” 

© 

18, 

37 

.SAY 

m  duefoll  PICTURE  ”©D” 

© 

18, 

51 

SAY 

m  last  foil  PICTURE  ”©D” 

© 

18, 

69 

SAY 

m  datecomp  PICTURE  ”©D” 

RETURN 

********  **********  ****  *  *********  **  *  ***********  **  ***  **  *  *  *  **.  **  * 


*  Procedure. . . :  PRNTRQD  * 

*  Called  From. :  Interact  * 

*  Purpose . :  To  print  copy  of  a  file.  * 


************************************************************* 
PROCEDURE  prntrod 


* 

Initialize  varlbles. 

STORE 

SPACE  (36)  TO  ro_un  1 1 

STORE 

SPACE (36)  TO  m  base 

* 

Get 

into  concerning  user' < 

3  organization 

c 

LEAR 

© 

4  , 

31 

SAY  "BASE  INFORMATION” 

© 

b, 

19 

TO  12,  69  DOUBLE 

© 

8, 

22 

SAY  "Unit  :" 

© 

8, 

32 

SAY  m  unit 

© 

10, 

22 

SAY  "Address:  ” 

© 

10, 

32 

SAY  in  base 

© 

8, 

32 

GET  m  unit 

© 

10, 

32 

GET  ra  base 

READ 


8  0 


1 


CLEAR 


*  Display  message  while  printing. 

<9  10,  22  SAY  "Printing  ROD,  please  wait" 

SET  DEVICE  TO  PRINT 

*  Print  information. 

<9  4,  45  SAY  DATEO 

(9  4,  62  SAY  rod  f i le-> rpt  number 

(9  7,  4  SAY  rod_f i le->depotname 

<9  7,  44  SAY  m_unit 

<9  8 ,  4  SAY  rod_f  i  le- >depot  __add 

(9  8,  44  SAY  m_base 

(9  10,  4  SAY  rod  _f  i  le->ship_name 

(9  11,  4  SAY  rod  f ile->ship_add 

(9  14,  60  SAY  rod  f i le->req_number 

(9  20,  4  SAY  rod  f  ile->nsn  _or  pn 

(9  20,  32  SAY  rod^f i le- > ui 

(5  20,  36  SAY  rod_f i le->qty_ship 

(9  20,  42  SAY  rod_f  i  le- >qty_rcvd 

(9  20,  49  SAY  rod_f  1  le- > bad_qty 

<9  20,  54  SAY  rodj  i  le- >uni  t  _cost 

(9  20,  69  SAY  r od_f  1 1  e- > dscp_code 

(9  20,  73  SAY  rod_f  i  le- >act  ioncode 

(9  21,  4  SAY  rod  file->noun 

(9  21,  61  SAY  rod_f  i  le- >  tota  1  cost 

(9  28,  4  SAY  rod_f  i  le->reraarksl 

<9  29,  4  SAY  rod_f  i  le- >  reraarksk! 

(9  30,  4  SAY  rod_f i le- > reraarks3 

<9  31,  4  SAY  rod_f  i  le- >  remarks4 

(9  32,  4  SAY  rod  f  i  le-> remarks5 

<9  33,  4  SAY  rod _f i le->remarks6 

(9  53,  4  SAY  rod_f  1  le- >  narae_ra  nk 

(9  54,  4  SAY  rod_f  i  le->duty_t  i  t  le 

EJECT 

SET  DEVICE  TO  SCREEN 
RETURN 

*******  ********************  *  ***  *  *  **  *  *****  *  *  *  **  * *  if  t  *  *  **  *  *  *  *  *  * 

*  Procedure. . . :  DISPLMSG  * 

*  Called  From. :  Several  procedures  * 

*  Purpose . :  To  display  the  contents  of  the  variable  * 

*  called  "message"  * 

*********************************  *************************** ( 
PROCEDURE  displrasg 

DO  c  Lear  msg 
SET  COLOR  TO  R* 

(9  19,  10  SAY  message 

SET  COLOR  TO  V/B 

WAIT  SPACE ( 1 0 >  +  "Press  any  key  to  continue. . ." 
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RETURN 


************************************************************* 

*  Procedure. . . :  CLEARMSG  * 

*  Called  From. :  Several  procedures  * 

*  Purpose . :  To  clear  any  message  that  is  present  on  line* 

*  19  on  the  data  entry  screen.  * 

************************************************************* 
PROCEDURE  clearmsg 

@  19,  10  SAY  SPACE (68 ) 

RETURN 
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********************************************************* 


*  Program. . . :  LISTROD. PRG  * 

*  Author, . . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/89  * 

*  Purpose. . . :  Program  produces  a  listing  of  open  ROD  * 


*  files  in  report  number  sequence.  * 

********************************************************* 
CLEAR 

USE  rod_file 

@  10,  25  SAY  "Counting  records,  please  wait. . . " 

COUNT  TO  m_count 
CLEAR 

IF  m_count  =  0 

@  18,  20  SAY  "Cannot  produce  report,  no  files  exist" 

WAIT  SPACE(20)  +  "Press  any  key  to  continue. . ." 

CLEAR 

CLOSE  DATABASES 
RETURN 
END  I  F 

IF  m_count  =  1 
COPY  TO  TEMP 
ELSE 

@  10,  25  SAY  "Sorting  data,  please  wait” 

SORT  ON  rpt_number  TO  TEMP 
END  I  F 

USE  TEMP 

*  Initialize  page  number  to  1. 
pagenum  =  1 

1 i ne  num  =  70 

*  Initialize  variable 
STORE  SPACE  (1)  TO  in  choice 

*  Prompt,  user  for  choice  ot  screen  nr  pi' Inter. 

CLEAR 

(?  2,  27  SAY  "PRINTER  OPTION" 

<?  4,  15  TO  8,  52  DOUBLE 

@  6,  17  SAY  "Send  output  to  printer  (Y  or  N>" 

6,  50  SAY  m  choice 

@  6,  50  GET  m_choice  PICTURE  "A" 

READ 

6,  50  SAY  m  chnlce 

IF  UPPER  < me  ho i oe )  -  ” Y” 

*  Direct  output  to  printer. 

SET  DEVICE  TO  PRINT 
ELSE 
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ro_choice  =  ”N” 

SET  DEVICE  TO  SCREEN 
END  IF 

CLEAR 

*  Loop  until  end  of  file. 

DO  WHILE  . NOT.  EOF ( ) 

*  If  more  than  55  lines  have  been  printed,  print  page 

*  heading,  set  line  number  to  7,  and  increase  page 

*  number. 

IF  linenum  >  55 


2 

1 , 

2 

SAY  DATE  < ) 

(2 

1, 

25 

SAY  "Report  of  Discrepan 

CO 

1, 

72 

SAY  "Page" 

2 

1 , 

77 

SAY  pagenum  PICTURE  ”99" 

(2 

2, 

30 

SAY  "Master  List” 

(2 

3, 

26 

SAY  "(By  Report  Number)" 

© 

4, 

0 

SAY  "Report" 

( 2 

4, 

11 

SAY  "Requisition" 

(2 

4, 

46 

SAY  ” Dscp" 

(2 

4, 

53 

SAY  "Total” 

(2 

4, 

60 

SAY  "Dscp” 

<2 

4, 

65 

SAY  "Act” 

2 

4, 

70 

SAY  "Date  Due” 

(0 

5, 

0 

SAY  "Number" 

2 

5, 

13 

SAY  "Number" 

(2 

5, 

28 

SAY  " NSN/Par  t  nbr” 

(2 

5, 

47 

SAY  ” Qty" 

f2 

5, 

54 

SAY  "Cost” 

<2 

5, 

60 

SAY  "Code" 

(0 

5, 

65 

SAY  "Code" 

(0 

b, 

70 

SAY  "Follow-up" 

-t  Draw  1  i  nes 
2  6,  0  SAY 

2  6,  39  SAY  "=  =  =  =  --.= 

linenum  =  7 
pagenum  =  pagenum  +  I 
END  IF 


* 

Print  information 

2 

I  i nenura, 

0 

SAY 

TEKP->rpt.  number 

2 

1  1 nenum, 

1  1 

SAY 

TEMP->req  number 

2 

1  i  nenum, 

28 

SAY 

TEMP->nsn  or  pu 

<2 

1 i ne nura, 

45 

SAY 

TEMP- > bad "qty 

(2 

1  i  nenum, 

52 

SAY 

TEMP->+ntal  cost 

2 

I  i nenum, 

61 

SAY 

TEMP->dscp  code 

2 

1  1  nenum, 

66 

SAY 

TEMP->aot ioncode 

2 

1 1  nenum, 

7  0 

SAY 

TEMP-^due  1 o 1 1  up 

* 

Go  +.  o  next 

1  i  ne 

and  read  next  re 

64 


linenum  =  linenum  +  1 
IF  linenum  >  20 

IF  m_chaice  =  ”N” 

WAIT  SPACE<25)  +  "Press  any  key  to  continue. . . 
CLEAR 

linenum  =  1 
END  IF 
END!  F 
SKIP 
ENDDO 

IF  UPPER  ( m  _cho  ice  >  =  ’  Y" 

EJECT 

SET  DEVICE  TO  SCREEN 
END  I 

@19,  1  SAY  SPACE (1) 

WAIT 

CLEAR 

CLOSE  DATABASES 
ERASE  TEMP. DBF 
RETURN 


************************************************  ****** *** 


*  Program. . . :  REQNSEQ. PRG  * 

*  Author. . . . :  Capt  James  L.  Johnson  * 

*  Date . :  b/30/89  * 

*  Purpose. . . :  Program  produces  a  listing  of  open  ROD  * 


t  files  in  requisition  number  sequence.  * 

********************************************************* 
CLEAR 

USE  rod_file 

<3  10,  25  SAY  "Counting  records,  please  wait.  .  .  " 

COUNT  TO  m^count 
CLEAR 

IF  m_count  =  0 

@  18,  20  SAY  "Cannot  produce  report,  no  files  exist" 

WAIT  SPACEC20)  +  "Fress  any  key  to  continue. . ." 

CLEAR 

CLOSE  DATABASES 
RETURN 
END  IF 

I F  ra_ccunt  =  1 
COPY  TO  TEMP 
ELSE 

@  10,  25  SAY  "Sorting  data,  please  wait" 

SORT  ON  req  number  TO  TEMP 
END  I  F 

USE  TEMP 


* 

I  n  i  t 

ial 

ize 

PaSe 

number 

to 

1  . 

pagenum  = 

■  1 

1 

inenum  = 

6b 

* 

I  ni  t 

dal 

ize 

var  ia 

b  le 

STORE 

SPACE  < 1 

)  TO 

m  c 

hole 

e 

* 

Prompt 

use  r 

for 

cho 

ice 

of 

scr 

een  o 

CLEAR 

(? 

2, 

S'7 

SAY 

"PRINTTR 

OPT 

ION” 

<0 

4  , 

15 

TO  8 

,  52 

DOUBLE 

b . 

17 

SAY 

”  Send 

output 

t 

o  pr 

inter 

(3 

b , 

50 

SAY 

ra  cho 

i  cp 

b , 

50 

GET 

m  cho 

ice 

PIC 

TU 

RE  ” 

A" 

READ 

(0 

b , 

50 

SAY 

m  cho 

ice 

r 

t. 

F  UPPER  v 

m  ch 

sic  e ) 

•  *  Y » » 

*  D  i 

re  c 

;t  ou 

tput 

to 

pr  1  n 

t  P 

r . 

SET 

DEV  I  OH 

TO  PR 

I  NT 

ELSE 

8b 


m_choice  =  ”N" 

SET  DEVICE  TO  SCREEN 
END  IF 

CLEAR 

GOTO  TOP 

*  Loop  until  end  of  file. 

DO  WHILE  . NOT.  EOF ( ) 

*  If  more  than  55  lines  have  been  printed,  print  page 

*  heading,  set  line  number  to  7,  and  Increase  page 

*  number. 


if  : 

1  i nenum 

>  55 

1. 

2 

SAY  DATEO 

(3 

1, 

25 

SAY  "Report  of  Discrepancy" 

© 

1 , 

72 

SAY  "Page" 

(3 

1, 

77 

S\Y  pagenura  PICTURE  "99" 

(3 

2, 

30 

SAY  "Master  List” 

(3 

3, 

24 

SAY  "(Requisition  Number  Sequence) 

<3 

4, 

0 

SAY  "Report" 

(3 

4, 

11 

SAY  "Requisition” 

(3 

4, 

46 

SAY  " Dscp” 

(3 

4, 

53 

SAY  "Total" 

© 

4, 

60 

SAY  "Dscp" 

© 

4, 

65 

SAY  "Act" 

© 

4, 

70 

SAY  "Date  Due" 

© 

5, 

0 

SAY  "Number" 

© 

5, 

13 

SAY  "Number" 

© 

5, 

28 

SAY  ” NSN/Par t  nbr” 

© 

5, 

47 

SAY  "Qty" 

© 

5, 

54 

SAY  "Cost” 

© 

5, 

60 

SAY  "Code" 

© 

5, 

65 

SAY  "Code” 

© 

5, 

70 

SAY  "Follow-up” 

t  Draw  lines 
©  6,  0  SAY  "======= 

©  6,  39  SAY  — 

1 i nenum  =  7 
pagenura  =  pagenura  +  1 
END  IF 


i 


*  Print  in 
©  linenum, 
©  linenum, 
<3  linenum, 
(3  linenum, 
<3  1  i  nenum, 
(3  linenum, 
<3  linenum, 
(3  linenum, 


or mat i on 
0  SAY  TEMP- 
11  SAY  TEMP- 
28  SAY  TEMP- 
45  SAY  TEMP- 
52  SAY  TEMP- 
61  SAY  TEMP- 
66  SAY  TEMP- 
70  SAY  TEMP- 


>rpt  number 

>  req  number 

>  nsnor _pn 
>bad  qty 
>t.ota  1  _cost, 
>dscp  code 
>act loncode 
>due_f oil  up 
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*  Go  to  next  line  and  read  next  record 
linenum  =  linenum  +  1 
IF  linenum  >  20 

IF  m_choice  =  N” 

WAIT  SPACEC25)  +  "Press  any  key  to  continue. 
CLEAR 

1 i nenum  =  1 
END  I  F 
F.NDIF 
SKIP 
ENDDO 

IF  UPPER <ra_ cho ice )  =  " Y” 

EJECT 

SET  DEVICE  TO  SCREEN 
END  IF 

@19,  1  SAY  SPACE  (1) 

WAIT 

CLEAR 

CLOSE  DATABASES 
ERASE  TEMP. DBF 
RETURN 
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*******************************************************  ** 


*  Program. . . :  PASTSUS. PRO  * 

*  Author. . . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/89  * 

*  Purpose. . . :  Program  produces  a  listing  of  open  ROD  * 


*  files  in  date  due  follow-up  sequence.  * 

********************************************************* 
CLEAR 

USE  rod_file 

0  10,  25  SAY  "Counting  records,  please  wait. . .” 

COUNT  TO  m_count 
CLEAR 

IF  m_count  =  0 

0  18,  20  SAY  "Cannot  produce  report,  no  files  exist" 

WAIT  SP£CE(20)  +  "Press  any  key  to  continue.  .  ." 

CLEAR 

CLOSE  DATABASES 
RETURN 
END  IF 

IF  m_count  ••  1 
COPY  TO  TEMP 
ELSE 

<9  10,  25  S4Y  "Sorting  data,  please  wait.  .  ." 

SORT  ON  due-foil  up  TO  TEMP 
END  IF 

USE  TEMP 

*  Initialize  page  number  to  1. 
pagenum  =  1 

linenura  =  70 

*  Initialize  variable 
STORE  SPACE (1)  TO  m_choice 

*  Prompt  user  for  choice  of  screen  nr  printer. 

CLEAR 

©  2,  27  SAY  "PRINTER  OPTION" 

0  4,  15  TO  8,  52  DOUBLE 

0  6,  17  SAY  "Send  output  to  printer  (Y  or  NV 

0  6,  50  SAY  m_choice 

0  6,  50  GET  m_choice  PICTURE  "A" 

READ 

0  6,  50  SAY  m_choice 

IF  UPPER (mchoice)  =  "Y" 

*  Direct  output  to  printer. 

SET  DEVICE  TO  PRINT 
ELSE 
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*  Direct  output  to  screen. 
m_choice  =  "N" 

SET  DEVICE  TO  SCREEN 
END  IF 

CLEAR 


X  Loop  until  end  of  file. 

DO  WHILE  . NOT.  EOF C ) 

X  If  more  than  55  lines  have  been  printed,  print  pa 
*  heading,  set  line  number  to  7,  ana  increase  pa 
X  number. 

IF  linenum  >  55 


© 

1, 

2 

SAY  DATEO 

© 

1, 

25 

SAY  "Report  of  Discrepancy" 

© 

1, 

72 

SAY  "Page" 

© 

1  . 

77 

PAY-  nF>crpDnm  PICTURE 

© 

2, 

30 

SAY  "Master  List" 

© 

3, 

24 

SAY  ” (By  Date  Due  Follow-up)" 

© 

4, 

0 

SAY  "Report" 

© 

4, 

11 

SAY  "Requisition” 

© 

4, 

46 

SAY  " Dscp" 

© 

4, 

53 

SAY  "Total" 

© 

4, 

60 

SAY  "Dscp" 

© 

4, 

65 

SAY  "Act" 

© 

4, 

70 

SAY  "Date  Due" 

© 

5, 

0 

SAY  "Number” 

© 

5, 

13 

SAY  "Number" 

© 

5, 

28 

SAY  "NSN/Part  nbr" 

© 

5, 

47 

SAY  "Qty" 

© 

5, 

54 

SAY  "Cost" 

© 

5, 

60 

SAY  "Code” 

© 

5, 

65 

SAY  "Code” 

© 

5, 

70 

SAY  "Follow-up” 

* 

Draw  lines 

© 

© 

6, 
6 , 

0 

39 

SAY  "=  =  “  =  =  ===  =  =  =  =  =  =  =  =  =  =  =  =  =  ==: 

SAY  " - - - = - - 

linenum 

=  7 

pagenum 

=  pagen.  1 

END  I F 


* 

Print  information 

© 

1  inenura, 

0 

SAY 

TEMP->rpt  number 

© 

1  inenum, 

1 1 

SAY 

TEMP->req  number 

© 

1 i nenura, 

28 

SAY 

TEMP->nsn  or  pn 

© 

1  i  nenum, 

45 

SAY 

TEMP->bad  qty 

© 

1  i  nenum, 

52 

SAY 

TEWP->total  cost 

© 

1 i nenum, 

61 

SAY 

TEMP->dscp  code 

© 

1  i  nenum, 

66 

SAY 

TEMP- > act i one ode 

© 

1  i  nenum, 

70 

SAY 

TEMP->due  iollup 

1 


I 
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60  to 


*  Go  to  next  line  and  read  next  record 
linenum  =  linenum  +  1 
IF  linenum  >  20 

IF  m_choice  =  ” N” 

WAIT  SPACEC25)  +  "Press  any  key  to  continue. 
CLEAR 

linenum  =  1 
ENDIF 
END  I F 
SKIP 
ENDDO 

IF  UPPER (mchoice)  =  ”Y” 

E  J  ECT 

SET  DEVICE  TO  SCREEN 
END  I  F 

@  19,  1  SAY  SPACE  < 1 > 

WAIT 

CLEAR 

CLOSE  DATABASES 
ERASE  TEMP. DBF 
RETURN 
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********************************************************* 


*  Program...:  COMPROD. PRO  * 

*  Author. . . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/89  * 

*  Purpose. . . :  Program  produces  a  listing  of  closed  ROD  * 


*  files  in  report  number  sequence.  * 

*******************************************************  ** 
CLEAR 

USE  inactive 

(9  10,  25  SAY  "Counting  records,  please  wait.  .  .” 

COUNT  TO  m_caunt 
CLEAR 

IF  m_court  -  0 

<9  18,  20  SAY  "Cannot  produce  report,  no  files  exist" 

WAIT  SPACEC20)  *  "Press  any  key  to  continue.  .  .  ” 

CLEAR 

CLOSE  DATABASES 
RETURN 
END  IF 

IF  ra__count  =  1 
COPY  TO  TEMP 
ELSE 

(9  10,  25  SAY  "Sorting  data,  please  wait” 

SORT  ON  rpt  _number  TO  TEMP 
END  IF 

USE  TEMP 

*  Initialize  page  number  to  1. 
pagenum  =  1 

linenum  =  70 

*  Initialize  variable 
STORE  SPACE  < 1 )  TO  ra choice 

*  Prompt  user  for  choice  of  screen  or  printer. 

CLEAR 

<9  2,  27  SAY  "PRINTER  OPTION" 

<9  4,  15  TO  8,  52  DOUBLE 

<9  6,  17  SAY  "Send  output  to  printer  (Y  or  N)" 

(9  6,  50  SAY  ra_choice 

(9  6,  50  GET  m_cho ice  PICTURE  "A” 

READ 

<9  6,  50  SAY  ra_choice 

IF  UPPERCm  choice)  =  "Y” 

*  Direct  output  to  printer. 

SET  DEVICE  TO  PRINT 
ELSE 
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*  Direct  output  to  screen. 
m_choice  =  ” N" 

SET  DEVICE  TO  SCREEN 
END  IF 

CLEAR 


*  Loop  until  end  of  file. 

DO  WHILE  .NOT.  EOF ( ) 

*  If  more  than  55  lines  have  been  printed,  print  page 

*  heading,  set  line  number  to  7,  and  increase  page 

*  number. 


if  : 

L inenum 

>  55 

@ 

1, 

2 

SAY  DATEO 

@ 

1, 

25 

SAY  ’’Report  of  Discrepancy” 

@ 

1, 

72 

SAY  "Page" 

(2 

1, 

77 

SAY  pagenum  PICTURE  "99" 

(2 

2, 

30 

SAY  "Master  List" 

<2 

3, 

27 

SAY  " (By  Report  Number)” 

4, 

0 

SAY  "Report" 

(2 

4  , 

11 

SAY  "Requisition” 

(2 

4, 

46 

SAY  "Dscp" 

r* 

<cr 

4, 

53 

SAY  "Total” 

(2 

4, 

60 

SAY  "Deep" 

(2 

4  , 

65 

SAY  "Act” 

(2 

4  , 

70 

SAY  "Date” 

(2 

6  , 

0 

S&Y  "Number" 

5, 

13 

SAY  "Number" 

C2 

5, 

28 

SAY  " NSN/Part  nbr” 

(2 

5, 

47 

SAY  "Qty" 

(2 

6, 

54 

SAY  "Cost" 

(2 

5, 

60 

SAY  "Code" 

(2 

5 , 

65 

SAY  "Code" 

(2 

5, 

7  0 

SAY  "Completed" 

* 

Draw  lines 

(2 

(2 

6, 
6 , 

0 

39 

SAY  ” - - 

SAY  ’’  =  =  =  =  =  =  =  =  =  =  =  -=  =  --::=  =  =  =  :=:=^=: 

1 inenum  =  7 
pagenum  ~  pagenum  +  1 
END  IF 


* 
ro 

i  <2 

<2 
(0 

'  0  linenura, 

<2  linenura, 
(2  linenura, 
<2  linenura, 


or mat  ion 

0  SAY  TEMP- >rpt  number 
11  SAY  TEMP- > req_ number 
28  SAY  TEMP- > nsn_or_pn 
45  SAY  TEMP- >  bad_qty 
52  SAY  TEMP- >tota 1  cost 
61  SAY  TEMP- >dscp_code 
66  SAY  TEMP- >act ioncode 
70  SAY  TEMP->date  comp 


Print  inf 
I  inenum, 

1  inenum, 

1  inenum, 

1 i nenum, 
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*  Go  to  next  line  and  read  next  record 
linenum  =  linenura  t  1 
IF  linenura  >  20 
IF  mchoice  =  ” N” 

WAIT  SPACE<25)  t  "Press  any  key  to  continue. 
CLEAR 

linenum  =  1 
END  IF 
END  IF 
SKIP 
ENDDO 


IF  UPPER (m_cha i ce )  =  ”Y" 
EJECT 

SET  DEVICE  TO  SCREEN 
END  I  F 


@19,  1  SAY  SPACE ( 1 ) 

WAIT 

CLEAR 

CLOSE  DATABASES 
ERASE  TEMP. DBF 
RETURN 
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********************************************************* 


*  Program. . ;  TOTALS. PRG  * 

*  Author. . . :  Capt  James  L.  Johnson  * 

*  Date . :  6/30/89  * 

*  Notes. . . . :  This  program  provides  a  total  count  and  * 

*  dollar  value  of  all  open  ROD  files.  * 


*******************************************************  *  * 
CLEAR 

USE  rod_f i le 

C  10,  25  SAY  "Counting  records  and  computing  totals” 

COUNT  TO  m_count 

SUM  total_cost  TO  m_total 

CLEAR 

@  5,  15  SAY  "TOTALS  FOR  OPEN  REPORT  OF  DISCREPANCIES" 

(0  6,  15  TO  6,  53  DOUBLE 

i ?  8,  15  SAY  "Total  Number  of  Records.  ." 

(<?  8 ,  41  SAY  m^count 

<o  9,  15  SAY  "Total  Dollar  Value . " 

9,  41  SAY  m  total 

<o  19,  1  SAY  SPACE  <1  ) 

WAIT  SPACE<25)  +  "Press  any  key  to  continue.  .  .  " 

CLEAR 

CLOSE  DATABASES 
RETURN 
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